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Publisher’s Note 


In keeping with our ongoing commitment to provide both literature and 
software for personal computers Melbourne House is very proud to be 
able to publish this book of games for the Commodore 64. 

You will find complete program listings, comprehensive structures and 
useful hints on each program. We have taken care to design the format in 
such a way that the programs will be easily read, to reduce the possibility 
of transcription errors, expecially with the graphics characters. 

After working through this book, I think you will agree that Clifford and 
Mark Ramshaw are immensely creative programmers and the programs 
in this book should set the standard future programs for the Commodore 
64 will be judged by. 

I know you will enjoy not only the games themselves, but also the insight 
you will gain about programming the Commodore 64. 

Melbourne House are not just publishers — we are dedicated to 
microcomputer software, and we are always interested in your feedback: 
If you have an article or program that you think might be of value to other 
users we want to hear from you. 

Until I hear from you, let me just wish you happy programming! 
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SPECIAL CHARACTERS 


In the program listings throughout this book spaces have been used 
ONLY as an aid to readability. When you type the programs in on your 
computer these spaces should be left out to conserve memory space. 

As an example the line 

100 POKE 54273,1: POKE V + 23,0 
would be typed as 

10OPOKE54273,1 :POKEV+23,0 

on your computer. As you can see the first verson is much more legible. 

The only situation in which a space should be entered into a program 
listing is when the symbol 

appears. This special character does not appear on your computer’s 
keyboard but has been placed in the listings to tell you, the programmer, 
when a space is necessary. 

One other symbol appears in the program listings which may not at first 
be recognised. This is the symbol 


and is actually just the COLON symbol located on the key next to 
the L key. 


The letter “I” and the number “1” can cause some confusion at times as 
well as the letter “O” and the number “0”. 

Once you are familiar with them they don’t cause any problems, it’s just a 
matter of recognising the difference. 

The letter I looks like this: 1 

The number 1 looks like this: 1 
The letter O looks like this: O 

The number 0 looks like this: O 
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CHEXSUM 


RUN THIS PROGRAM FIRST 

The unique CHEXSUM program validation 

WHY: 

When a book of programs, such as this book, is keyed in everybody 
invariably makes reading and typing mistakes and then spends ages 
trying to sort out where and what is causing the error (or errors). 

Even experienced programmers often cannot identify an error by just 
listing the relevant line and need to do the tedious job of going back to the 
book, especially with DATA statements. 

Realising that this is a major cause of frustration in keying the programs 
we decided to do something about it. 

There are two short routines in this book which you should key in and 
save BEFORE you key any other programs in. 

Using these routines you will be able to find out if you have made any 
keying errors at all and in which lines, before you even run the program. 

In effect this means that with this book you need not waste time looking 
for keying errors, you simply run the routines and look at the display to 
identify lines containing errors. It’s just that easy. 

The principle behind the routines is a unique chexsum which is 
calculated on each individual line of the program as you have keyed it in. 
Compare this chexsum value with the value for that line in the list at the 
end of the program listing, if they are the same the line is correct, if not 
there is an error in that line. 


HOW: 

The CHEXSUM program uses line 62000 onwards, and no other 
program in this book uses line numbers that large. 

To use it, you need to type in the CHEXSUM program first (or load it from 
tape). You then type in the program you have chosen from the book. 
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At any stage of typing your game program, you can check on the 
correctness of your work by entering the command RUN 62000 . 

When you have completed entering your program, and are satisfied that 
all is correct, you can delete the CHEXSUM program by running it and 
answering DELETE to the question “TO PRINTER (Y, N OR DELETE) 
?”. You can now save your program to disk or cassette as it will still be 
intact in memory. 

WHEN: 

The simplest method is to enter the CHEXSUM program in now and save 
it to tape or disk. Each time you want to enter a new program just load 
CHEXSUM and key the program. 

You can type in the CHEXSUM program at any time, even if you have 
started to type in a program. You cannot, of course, load in CHEXSUM 
from tape or disk because it will erase all you have typed so far. 

A partial solution to this is the MERGE program included here that will 
allow you to merge two programs. To use it, you will have to save all you 
have typed in so far onto your cassette or disk, load the MERGE 
program, and run it. You will be prompted to load in your program and the 
CHEXSUM program. 

If you are using a Datasette it might be an idea to save CHEXSUM and 
MERGE on a seperate cassette, saving CHEXSUM first. This will enable 
you to save all your corrected programs on one cassette and allow you 
easy access to the CHEXSUM and MERGE routines without having to 
constantly run backwards and forwards through the tape. 

HOW CAN YOU TELL IF CHEXSUM HAS BEEN CORRECTLY 
ENTERED? 

After having keyed CHEXSUM (or MERGE) the logical thing would be to 
chexsum these programs too, to ensure that they are correct. But is it 
possible to do this? If you follow the instructions you will be able to check 
them both. 

Type and save CHEXSUM 

Edit line 62020 and change the value of E from 61999 to 62200 

Type RUN and check output against the table of values at the end of the 
program. 
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If the program is incorrect then edit the incorrect lines and resave the 
program after having reset the values of E in line 62020. 

Type and save MERGE. 

You can only check the data in the MERGE routine, however this is the 
most important part of the routine. All you need to do is “RUN” merge, it 
will check its own data and prompt you if there is an error. 

Here are the routines and instructions on howto use them: 


CHEXSUM ROUTINE 

62000 T-PEEKC 62 > *£56+PEEK( 61 > +1 

620 10 INPUT "TO PRINTER *. <. *Ya,«N*OR» DELETE 1 "1Q»1 

IF Q$- "DELETE " THE.N621200 
62011 IF Q*<>-Y-THEN 62020 

620 15 CL0SE4,4 * OPEN4 , 4 : CMD4 SPRINT CHR*< 1 ) ! CHR*<. 123 ) 

62020 PRINT CHR*X 147 >; "CHECK ^ SUM^s: 

LINC=PEEKC 44 ) *256*PEEK< 43 > :E=61993 
62100 REM * MAIN LOOP « 

62 120 T=L INK 

62 130 L1NK=PEEK( T+ l >4256+PEEK< T? 

62 135 LN*PEEK< T+3>4256♦PEEK* T+2> 

62136 IF LN>E THEN PR INTt PR INT" TOTAL= “ ; CH: CLOSE4 ,4 : END 

62137 S*-STR*< LN> »L«LEN( S* > - 1 * S*=MID$< S*,2,L> 

62 138 PRINT SPC<6-L>/S*7 

62140 CS = 0 : N=0 : C=0 

62150 FOR P=T■*■4 TO LINK-2 :PK=PEEK(P) 

62 160 IF PK =143 THEN P s LINK-2 * GOTO 62190 
62165 IF PK = 34 THEN C=<C=0) 

62170 IF C=0 AND PK=32 THEN 62190 

62180 IF PK= 137 THEN N=N+ 1:CS =CS203ORN) • PK= 164 
62 185 N=N+1:CS=CS+< PK OR N) 

62190 LEXT P s CH-CH + CS : PRINT 

" = " ; RIGHTS STRSC CS ) ,LENt STRS< CS ) ) - 1 ) : GOTO 62120 
62200 POKET,0•POKET +1,0!P0KE46,PEEK(46)-2:CLR 
62999 REM 


INSTRUCTIONS 

1: RUN 62000 
2: answer the question. 

“Y” if you want listing on printer 
“N” if listing is to be displayed 
“DELETE” to delete CHEXSUM 
3: hit “RUN/STOP” to halt output. 

4: type “CONT” to continue. 

5: if all is correct then “RUN 62000” again and answer with “DELETE”. 
6: otherwise correct errors and start again from 1. 
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6c? 3 70=1554 
62 180=3320 
S3 185=1362 
62130=4228 
62200=2275 

TOTAL= 45567 


MERGE ROUTINE 

J0 POKE 33,0»POKE36, 139«CLR 

20 S *40703 * FOR J-S TO 8+76 * READ V 

30 C-C +V« POKE J,Vi NEXT 

40 IP C< >8736 THEN PRINT "OATAa ERROR " i END 
120 DATA 169,0,133,10,32,212,223,163 
130 DATA 43,72,163,44,72,36,163,43 
140 DATA 233,2,133,43,163,46,233,0 
130 DATA 133,44,169,0,133,183,166,43 
160 DATA 164,44,169,0,32,213,255,176 
170 DATA 14,134,43,132,46,32,51,163 
180 DATA 104,133,44,104,133,43,96,170 
190 DATA 201,4,144,244,240,10,104,133 
200 DATA 44,104,133,43,24,108,0,3 
210 DATA 164,186,136,240,209,208,239 
300 NEW 

INSTRUCTIONS 

1: LOAD and RUN MERGE. 

2: type or LOAD your program. 

3: type SYS 40705 “CHEXSUM”. (SYS 40705,8 for Disk.) 
4: then follow CHEXSUM instructions. 


CHEXSUM 

S2S00=1848 
62 O10=4494 
S28 * 1 = 1881 
68015=6125 
82880=4855 
66180=8 


62 

188 

=577 

62 

138 

=2967 

62 

135 

=8 115 

82 

136 

=2536 

62 

137 

=8398 

62 

138 

= 83 1 

62 

148 

0 J 

!l 

62 

150 

=225 1 


HP 168=2373 
68 165=143 I 


Because MERGE, on running it, stores itself above BASIC memory it will 
reside there until you switch off the machine or change the top of BASIC 
RAM. From this it follows that you don’t need to continually reload 
MERGE after running it the first time. 
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CHEXSUM AND GRAPHICS CHARACTERS 

At times it might be difficult to recognise the difference between two 
graphics characters and when you run the CHEXSUM you will get a 
variance in the values. If, after having checked the line carefully, you 
come to the conclusion that the error must be in one of the graphics 
characters and you are reasonably sure that you keyed what you think 
the character should be, then don’t worry about the CHEXSUM variance. 
When you run the program it will be obvious from the screen display what 
the character should be if it is an important character. Some characters 
don’t really matter that much and at times you probably won’t even be 
able to find the wrong one in the screen display. 
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Paranoid 



Just sit back and watch the machine print a kaleidoscope of graphics 
patterns. When you’ve had enough just ‘stop’ the program. For an 
entirely different pattern re-run the program. 

This is an easy, short program that has pretty impressive results. Use it in 
understanding your machine’s graphics capabilities or just something to 
occupy your screen (and spectators) while you are doing something 
else. 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

PLOT POINTS REVOLVING AROUND X, Y 
CHANGE X, Y AND CHECK IF IN SCREENS SIZE 
RANDOMLY CALCULATE DX, DY 
LOOP 

SUBROUTINE PLOTXI, Y1 


VARIABLES 

V = VIDEO CHIP 

X, Y = BASIC SCREEN COORDINATES 
DX, DY = OFFSETS FROM PREVIOUS X, Y 

XI, Y1, YA, YB, XA, XB = TEMPORARY STORAGE 
P(7) = BIT POSITIONS 

XC = BIT TO BE SET 

P = LOCATION OF BYTE TO BE PLOTTED TO 


1 — 100 
105,107 
110,115 
120, 140 
145 

1000 , 1010 
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PARANOID 


O BACKGROUND = 1 

5 POKE 55,255 * POKE 56,31 

6 DIM P ( 7 ) * FOR 1=0 TO 7 * 

P ( I ) = 2 -1* (7-1) * NEXT 

10 V = 53248 * POKE V + 32,0 * POKE V + 33,0 
30 POKE V + 24, PEEK ( V + 24 ) OR 8 

40 POKE V + 17, PEEK ( V + 17 ) OR 32 

50 FOR I = 1024 TO 2024 * POKE I, BA * NEXT 

60 FOR I = 8192 TO 8192 + 8 * 1024 * POKE 1,0 * 

NEXT 

100 X = 79 : Y = 49 J DX = INT ( RND ( 1 ) * 3 - 1 ) 

» DY = INT ( RND < 1 ) * 3 - 1 ) * 

IF DX = O AND DY = O THEN 100 


105 

Y1 = Y 

* XI 

= X * GOSUB lOOO 

* XI = 319 - X t 


GOSUB lOOO 

s Y1 = 199 — Y c 

GOSUB lOOO * 


XI = 

X * GOSUB lOOO 


107 

Y1 = Y 

* 2 * 

XI = X * 2 * GOSUB 1000 * 


Y1 = 

199 - 

Y1 * XI = 319 - 

XI * GOSUB lOOO 

HO 

X = X + 

DX * 

Y = Y + DY * IF 

X < 0 OR X > 159 


THEN 

DX = 

- DX * GOTO 110 


115 

IF Y < 

0 OR 

Y > 99 THEN DY = 

— DY * GOTO 110 

120 

IF RND 

( 1 ) 

> .9 THEN 



DX = 

INT ( 

RND ( 1 ) * 3 - 

1 ) 

130 

IF RND 

( 1 ) 

> -9 THEN 



DY = 

INT < 

RND ( 1 ) * 3 - 

1 ) 


135 IF DX < > O OR DY < >0 THEN 105 
140 DX = INT ( RND < 1 > * 3 - 1 > * 

DY = INT ( RND < 1 ) * 3 - 1 ) * 

IF DX = O AND DY = O THEN 140 
145 GOTO 105 

lOOO YA = INT ( Y1 / 8 ) * YB = Y1 — YA * 8 * 

XA = INT ( XI / 8 ) * XB = XI - XA * 8 

1005 P = 8 * 1024 + YA * 320 + XA * 8 + YB J 
XC = P ( XB ) 

1010 POKE P, PEEK ( P ) OR XC i RETURN 


CHEXSUM 

0=1014 
5=383 
6=2548 
13=1973 
33=1482 
48=1536 
53=1742 
60=2278 
100=5886 

105=4355 

137=4844 


110=4 163 
i15=2536 
123=2433 
138=2433 

i “; 5 - 1 R 5 4 

148=4665 
145=525 
1808=4565 
1885=3193 
1018=1285 

TQ TfcL = 
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Poetry 



Sit back and watch as the program writes poetry before your very eyes. 
Try making changes to the poem’s words to make it ridiculous or 
humourous or just try and give it more to write. 

Press N’ key to stop the program or any other key for another poem. 
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PROGRAM STRUCTURE 

LINES 

INITIALIZE ARRAYS 

20 — 30 

INITIALIZE SCREEN 

50 

CHOOSE WORDS 

55 — 70 

CHOOSE LINES 

75 

PRINT LINES OF POETRY 

80— 130 

GO AGAIN? 

500 — 515 

WORDS DATA 

1000— 1045 


VARIABLES 

AJ$ = ARRAY CONTAINING ADJECTIVES FOR LINE 
AV$ = SAME AS AJ$ EXCEPT ADVERBS FOR LINE 
FL = TO REPEAT A LINE 
MO = RAMDOM TO SET “MOOD” 

AJ, AV = RANDOM TO CHOOSE WORDS 
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POETRY 


10 REM * * POETRY * * 

20 DIM AJ* < 9,2 ) ,AV* ( 9,2 ) * FOR I = O TO 9 

30 READ AJ* ( 1,0 ) ,AJ* ( 1,1 ) , AJ* ( 1,2 ) 

,AV* ( 1,0 ) ,AV* ( 1,1 ) ,AV* ( 1,2 ) t NEXT 

50 PRINT " □ " 5 SPC( 14 ) ;"** ^ POETRY ^ * * LSSl" 5 

CHR* < 8 ) 

55 FL * O * MO = INT ( RND ( 1 ) * 3 ) 

60 FOR I = 1 TO 4 + INT ( RND ( 1 ) * 4 ) * 

AV = INT ( RND ( 1 ) * 10 ) 

65 AJ = INT ( RND ( 1 ) * 10 ) « 

IF AJ = AV THEN 65 

70 AJ* = AJ* ( AJ,MO ) s AV* = AV* ( AV,MO ) 

75 ON INT ( RND ( 1 ) * 11 + 1 ) 

GOTO 80,85,90,95,100,105,110,115,120,125,130 
80 PRINT “THE ^ " ;AJ*;" A MAN A M ;AV*; 

" ^ BEGUILED ^ HER" t GOTO 500 
85 PRINT "A A ; AJ*; " ^ WOMAN ^ ENCHANTED ^ ME ^ WITH 
^ "j AV*; " ^ BLINKING A EYES" t GOTO 500 
90 PRINT "IN A "; AV*; " ^ KEEPING ^ WITH ^ HER A " ; AJ* 
" A VOWS" t GOTO 500 

95 PRINT "ALAS, ^ SHE A MUST A "; AV*; " A LEAVE ^ HIS 
^ "; AJ*; " ^ PRESENCE" 5 GOTO 500 
lOO PRINT "A A BREATH ^ OF ^ "; AJ*; " ^ AIR ^ "; AV*; " 

^ RUSTLED ^ IN ^ THE ^ TREES" * GOTO 500 
105 PRINT "ANOTHER ^ "; AJ*; " ^ DAY A "; AV*; " ^ ENDED" 
GOTO 500 

110 PRINT "THE A " ;aj*;" ^ HILLS ^MARCHED * " ;av*; 

" ^ ACROSS ^ THE ^ HORIZON" t GOTO 500 
115 PRINT "AND ^ THEN- " - GOTO 500 
120 PRINT "THE A ";AJ*j" A BELL ^ TOLLED ^ ";AV*; 

" A ONCE ^ AGAIN" * GOTO 500 
125 PRINT "THE ^ ";AV*; " ^ ";AJ*; " ^HUMAN ^ ARRIVED" 
GOTO 500 

130 PRINT “LIFE ^ " ; AV*; " ^ DAWNED A ON ^ THE A " ; AJ*; 

" ^ UNIVERSE" t GOTO 500 
500 NEXT It IF FL = O AND RND ( 1 ) > .5 THEN 

FL = 1 J GOTO 60 

505 GET A* * IF A* = "N" THEN PRINT CHR* ( 9 ) t 
END 

510 IF A* = "" THEN 505 
515 GOTO 50 

1000 DATA SORROWFUL,APPATHETIC,JOYFUL,SADLY 
,CARELESSLY,HAPPILLY 

1005 DATA PUTRID,ODOURLESS,SCENTED,FOULLY 
,CAREFULLY,SWEETLY 

1010 DATA BORING,ENLIGHTENING,INTERESTING,TIRELESSLY 
,EFFORTLESSLY,EASILY 

1015 DATA UGLY,PLAIN,BEAUTIFUL,CLUMSILY,,GRACEFULLY 

1020 DATA FAT,THIN,LEAN,NOISILY,QUIETLY, 

1025 DATA PATHETIC,ORDINARY,SUPER,PATHETICALLY 
, , SUPERBLY 

1030 DATA IRRITATING,CALMING,EXCITING,SHARPLY 
,COOLY,EXCITEDLY 

1035 DATA TORTUOUS,HATING,LOVING,,CONTEMPTUOUSLY 
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,LOVINGLY 

1040 DATA DYING,LIVING,NEWLY BORN,PAINFULLY, EASILY, 
1045 DATA STUPID,IGNORANT,INTELLIGENT,FOOLISHLY 
,,INTELLIGENTLY 


CHEXSUM 

10=0 
20=1883 
30=3330 
50=2283 
55=1648 
68=3883 
65=2234 
70=2233 
75=3843 
38=3558 
85=5647 
38=3316 
35=4863 
188=5163 
105=3316 
1 18 = 5313 
1 15=1455 
128=4187 
125=3351 
138=4233 
588=2731 
585=1837 
518=852 
515=476 
1008=5167 
1885=4661 
1010=6211 
1015=3638 
1028=2536 
1025=4266 
1830=4885 
1835=4533 
1848=3581 
1845=5021 
TOTftL= 116565 
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Turkey 



Attempt to keep the turkey in the air as long as possible by manoeuvering 
the waiter underneath it and then bouncing it off the platter. 

You control the waiter with the ‘Z’ (left) and ‘M’ (right) keys. The turkey 
can be dropped twice but becomes inedible after the third time and the 
game ends. 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

1—5 

POINT SCORE AND NO. OF DROPS LEFT 

10 

READ KEY 

20 

MOVE LEFT 

26 

MOVE RIGHT 

32 

MOVE TURKEY 

50 

CHECK IF WAITER CAUGHT TURKEY 

95—100 

ANOTHER GAME 

120 

IF YES, RUN AGAIN 

140 

ELSE END 

160 

DATA 

9000 — 9050 


VARIABLES 

V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO DISPLAY AND SCREEN 
MEMORY 

LI = NO. OF DROPS LEFT 
P = POSITION OF WAITER 
X, Y = POSITION OF TURKEY 
S = SCORE 
PE = KEY PRESSED 

XD, YD = DISPLACEMENTS FOR TURKEY 
M, XI, Y1, P = TEMPORARY STORAGE 
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TURKEY 


1 POKE 53281,0 * POKE 53280,9 

2 CO = 54272 * P = 150 * X = 150 * Y = 190 * 

V = 53248 *SC = 0*LI=3* 

XD = INT ( RND < 1 ) * 9 - 4 ) * YD = - 1 

3 POKE V + 21,3 * POKE 2040,13 * POKE 2041,14 

4 FOR I = O TO 126 * READ Q * POKE 832 + I,Q t 

NEXT 

5 POKE V,P * POKE V + 1,200 * POKE V + 2,X * 

POKE V + 3,Y 

7 PRINT " □ aSUPER ^ WAITER! ^ ^ K SCORE * " 

8 FOR I = 55381 TO 55406 * POKE 1,5 * 

POKE I - CO,86 * NEXT * 

FOR I = 55381 TO 56156 STEP 40 

9 POKE 1,5 * POKE I - CO,86 * POKE I + 25,5 t 

POKE I + 25 - CO,86 * NEXT 
10 PRINT 

A A ^ ^ ; LI 

20 PE = PEEK ( 197 ) 

22 IF PE < > 12 AND PE < > 36 THEN 50 

26 IF PE = 12 AND P > 70 THEN P = P - 2 

32 IF PE = 36 AND P < 240 THEN P = P + 2 
40 POKE V,P 

50 Y1 = Y * X1=X-M=0 
60 Y1 = Y1 + YD J XI = XI + XD 

70 IF XI < 70 OR XI > 240 THEN XD = - XD i 

S = S + 1 i « = 1 

80 IF Y1 > 220 THEN X = P * Y = 200 * 

XD = INT ( RND ( 1 ) < 9 - 4 ) i YD = - 1 J 

LI = LI — 1 J GOTO 110 
90 IF Y1 < 70 THEN YD = 1 * 

XD = INT C RND <l)*9-4)tS»S+l* 
M = 1 

95 IF Y1 < 210 AND PEEK < V + 30 ) < > O THEN 

YD = — 1 - XD = INT ( RND < 1 ) * 9 - 4 ) * 

S = S + 2 

100 IF M = O THEN X = XI * Y = Y1 * POKE V + 2,X * 
POKE V + 3,Y 

110 IF LI >0 THEN GOTO 10 

120 PRINT H THE 

^ TURKEY * IS A INEDIBLE! ! " 

130 PRINT ^ ^ ^ WANT ^ TO 

^ TRY ^ AGAIN?" 

140 GET A* * IF A$ = "Y" THEN RUN 
150 IF A* < > "N" THEN 140 
160 END 

9000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,7,255,240,7,255,240,0,62,0,0 
9010 DATA 64,128,0,92,128,0,92,128,0,73,0 

,0,62,0,0,30,0,0,30,0,0,18,0,0,17,0,0,17 
9020 DATA 0,0,49,128 

9030 DATA O,O, ,O,O,O,O,O,O,O,O,O,192, O, 7 

,240,0,15,240,0,31,252,0,63,254,0,127,254 
9040 DATA 0,255,127,1,248,63,9,224,14,7,128 
,14,15,240,15,3, 14,30,6,1,248,0,0,112 
9050 DATA O,O,O,O,O,O,O,O,O,O,O,O,O 
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CHEXSUM 

1=1173 
2=623© 
3 = 1333 
4=2100 
5=2520 
7=2064 
3=4206 
3=3215 
10=1720 
20=796 
22=1887 
26=1342 
32=1391 
40=368 
50=1287 
60=1712 
70=3238 
83=5586 
30=3815 
85=4334 
100=2333 
1 10=1187 
120=2713 
130=2233 
149=1263 
150=1125 
160=123 
3030=4460 
3010=4624 
3020=660 
3030=4583 
3843=4553 
9850=1473 


m 



SPRITE 

WAITER 



SPRITE 

TURKEY 


TOTAL= 84536 




Quack 



This is the old fair ground game but instead of using bullets you are 
equipped with a bow and arrow. An arrow will of course travel slower than 
a bullet and thus requires better anticipation. The ducks do not move at a 
uniform speed which makes the game a lot harder. You have a limited 
number of arrows and also a time limit. 


Your controls are: 

Z’ left 
‘C’ right 

‘M’ to fire an arrow 



SPRITE 

DUCK 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 0 — 9 

GET KEY PRESSED 10 

PRINT TIME, SCORE, ETC 11 — 12 

IF OUT OF TIME GO TO END 
MOVE BOW AND ARROW 

IF‘S’FIRE ARROW 15 

IF SPRITE COLLISION FLIP BIRD 18 

POSITION BOW AND ARROW 21 

MOVE DUCKS 30 — 40 

FLIP BIRD ROUTINE 100—130 

PRINT MESSAGES 200 — 280 

FIRE ARROW ROUTINE 300 — 310 

DATE 9000 — 9110 


VARIABLES 

S = SCORE 
A1 = ARROWS LEFT 
AR = 0: NOT IN FLIGHT 
P = BOW POSITION 
X, Y = ARROW POSITION 
X ARRAY = DUCK POSITIONS 
PE = CURRENT KEY 
Z = SPRITE COLLISION 
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QUACK 


O POKE 55,255 * POKE 56,47 * CO = 54272 * 

A1 = 10 t S = O * POKE 54296,15 * 

POKE 54278,240 * POKE 54276,3 

1 PRINT *' Q** * POKE 53281,0 * POKE 53280,0 * 

V = 53248 t POKE V + 21,63 * POKE 2040,192 t 
POKE 2041,193 

2 FOR 1=1 TO 4 - POKE 2041 + 1,194 * 

POKE V+ 40 +1,2+1= NEXT * 

POKE V + 39,8 = POKE V + 40,1 * POKE V + 29,1 

3 FOR I = 0 TO 254 * READ Q * POKE 12288 + I,Q * 

NEXT 

4 P = 120 * X = 132 * Y = 217 * POKE V, 120 = 

POKE V + 1,220 * POKE V + 2,X * 

POKE V + 3,Y * FOR I = O TO 3 

5 X ( I + 1 ) = ( I + 1 ) I 40 * Y ( I + 1 ) = 90 

* POKE V+4+I*2,X(I+l)t 
POKE V + 5 + I * 2,Y ( I + 1 ) * NEXT 
61= PEEK ( V + 30 ) * FOR I = 55376 TO 56256 
STEP 40 * POKE 1,4 * POKE I - CO,160 = 

POKE I + 32,4 

7 POKE I - CO + 32, 160 * NEXT * 

FOR I = 55336 TO 55368 * POKE 1,4 * 

POKE I - CO,160 = NEXT 
B TI* = “000000” = PRINT ” 6=3 Qllttmtft 
******** E3QUACK H**************” 


9 PRINT ” 6=3 tel tel tel tel II II II II II l=S 

TIME [fi] El El El [fij || || || || ||SCORE” 

10 PE = PEEK ( 197 ) 

11 PRINT " 63 tel tel tel tel tel El II II II II II Si ” 5 

RIGHTS ( TI*,2 ) - PRINT " H [fl [fl 

[fi tel El El El El tel tel El KJ II || II || II" 5 S; 


12 PRINT 11 tel El te! II II ▲ ^ II II II” 5 A1 = 

IF TI* = "OOOIOO” THEN 200 

13 IF PE = 12 AND P > 35 THEN P = P - 4 * 

IF AR = O THEN X = X - 4 

14 IF PE = 20 AND P < 237 THEN P = P + 4 = 

IF AR = O THEN X = X + 4 

15 IF PE = 36 AND AR = O AND A1 > O THEN 

A1 = A1 - 1 * AR = 5 * GOSUB 300 

18 Y = Y - AR = Z = PEEK ( V + 30 ) * 

IF Z > 3 AND Y > 90 THEN GOSUB lOO 

19 IF Y < 60 THEN Y = 217 = AR = 0= X= P+12 

POKE V + 3,Y 

20 POKE V,P * POKE V + 2, X * IF AR > O THEN 


30 

POKE V + 3,Y 

FOR 1=0 TO 3 = X ( I 

+ 1 ) = 

X 

( I + 1 ) + 


IF X ( I + 1 ) > 241 

THEN X ( 

I 

+ 1 ) = 35 

40 

POKE 2042 + 1,194 
POKE V+4+I*2,X ( 

I + 1 ) 

* 



POKE V+5+ I * 2,Y 

( I + 1 

) 

* NEXT 

50 

100 

GOTO 10 

S = S + 10 i Z = PEEK 

( V + 30 

) 

• A = 5 * 


IF Z AND 8 THEN A = 

1 




105 IF Z AND 16 THEN A = 2 
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Y = 218 


110 IF Z AND 32 THEN A = 3 
113 IF Z AND 4 THEN A = 4 
115 POKE 2042 + A,195 * AR =0- 
X = P + 12 i POKE V + 3, Y * 

120 POKE 54276,0 * POKE 54276,33 
125 FOR I = 15 TO 1 STEP - .5 * POKE 54273,1 * 2 * 
POKE 54296,1 * NEXT * POKE 54296,15 * 

POKE 54273,0 

130 Z = PEEK ( V + 30 ) * RETURN 

200 POKE 54276,0 * POKE 54276,17 $ 

FOR I = 240 TO 1 STEP - 3 * POKE 54273,I * 
NEXT * POKE 54273,0 

210 FOR 1=1 TO 11 * POKE V + 1,0 * NEXT 
220 PRINT " Q fiBYOUR A TIME A IS ^ UP! " 

230 PRINT "(UK] HI YOU A SHOT";S / 10 5 "BIRDS. " 

240 IF S > 50 THEN PRINT " a WELL ^ DONE! ! ! " 

250 PRINT " 053 [S3 KsS flDO ^ YOU ^ WANT ^ ANOTHER ^ GO?" 
260 GET A* * IF A$ = M Y" THEN RUN 
270 IF A* < > "N“ THEN 260 
280 END 

300 POKE 54276,0 * POKE 54276,129 * 

FOR I = 1 TO BO STEP 2 * POKE 54273, I * NEXT 
* POKE 54273,0 
310 RETURN 

9000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,56,0,0,238,0,1,199,0 
9010 DATA 3,1,192,6,0,192,12,0,96,24,0,48,48 
,0,24,110,0,236,1,199,0,0,56,0 
9020 DATA 0,0,0,0,0,0,0,0,0,99 
9030 DATA 0,0,0,0,0,0,0,16,0,0,56,0,0,56,0 
,0, 124,0,0,16,0,0,16,0,0,16,0,0,16 
9040 DATA 0,0,16,0,0,16,0,0,16,0,0,16,0,0,16 
,0,0,16,0,0,16,0,0,16,0,0,16,0,0,16 
9050 DATA 0,0,16,0,99 

9060 DATA 0,0,0,0,0,0,0,0,0,0,0,6,0,7,232 

, 120, 7, 176,252,7,232,126,3,134,63,255, 0 
9070 DATA 63,255,0,31,255,0,15,255,0,15 

,255,0,15,255,0,3,248,0,0,128,0, 1,0,0 
9080 DATA 2,0,0,4,0,0,6,0,0,5,0,0,99 
9090 DATA O, O, O, 5, O, O, 6, O, O, 4, O, O, 4, O, O, 2 
,128,0,1,248,0,0,255,0,3,255,0, 15 
9100 DATA 255,0,15,255,0,15,255,0,31,255,0, 

63,3,134,63,7,232,126,7,176,252,7,232 
9110 DATA 120,0,6,0,0,0,0,0,0,0,0,0,0,0,0 
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CHEXSUM 


0=4717 

20 28=3763 

1=4422 

3013=3835 

2=5486 

3023=1133 

3 = 22 13 

3830=3383 

4=5124 

9048=4336 

5=6804 

3350=702 

8=4577 

3068=4595 

7=4137 

3073=4057 

9=3653 

3888=1538 

3=2857 

9030=3734 

13=736 

3100=4536 

1 1=42 13 

1 P =P7R7 

3113=1341 

13=3375 

TOTAL= 1535 


14=3435 
15 = 347 ! 
13=3388 
13=3047 
£ 0=8458 
30=5333 
4 3 =3383 
30=472 

i r\ . \ i O .-'I 

_ \ • i. v > r 

: o «=; = ci 0 5 

1 10=337 



SPRITE 



O <?t — 1 1 Oil 

L_ ! — A i. i__ “T 

238=123 
333=3326 


SPRITE 

ARROW 


3 l 8=143 
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Laser Tower 



Escape from the Laser Tower, battling against gravity and evading the 
tractor beam. The tractor beam fires from the tower on the left of the 
screen. It alters its height as you move away from it, trying to land in the 
pit at the right. 

Your controls are: cursor up for up, cursor right for right. 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

5 — 35 

PRINT GROUND 

50 — 54 

MOVE TOWER 

55 — 80 

FIRE LASER 

85 — 95 

GET MOVE 

100 

IF MOVEMENT MAKE NOISE 

101 — 102 

CALCULATE NEW POSITION 

105— 130 

IF HOME: END 

130, 2000 — 2025 

DON’T LET GO OFF SCREEN 

135— 145 

IF COLLISION THEN: END 

150— 1010 

DATA 

10000—10070 


VARIABLES 

GR = GRAVITY 

VV = VERTICAL VELOCITY 

HV = HORIZONTAL VELOCTY 

FR = TRACTOR BEAM 

A = X POSITION 

TW = TOWER HEIGHT 

PW = LASER 
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LASER TOWER 


5 POKE 55,255 * POKE 56,47 
10 V = 53248 * CO = 54272 * POKE 54296,15 
12 FOR I = 12 * 1024 + 256 TO 12 * 1024 + 263 * 

POKE 1,0 * NEXT 

15 FOR 1=0 TO 47 - READ A * POKE 12 * 1024 + I, A 

* NEXT * POKE V + 22, PEEK ( V + 22 ) OR 16 

20 POKE V + 24,28 * POKE V + 34,2 t POKE V + 35,7 * 
POKE V + 33,0 * POKE V + 32,0 
25 FOR I = 12352 TO 12478 - READ A * POKE I,A * 

NEXT * POKE V + 37,2 * POKE V + 38,7 
30 POKE V,75 t POKE V + 16,0 * POKE V + 1,100 * 

POKE V + 28,0 * POKE V + 39,4 * POKE V + 21,1 
35 GR = .4 i VV = O t HV = O i FR = . 5 * 

POKE 2040,193 

50 PRINT " □HMfflfflfflMKIMHfflKllflElElElK! 
ea A El H H H H H H" 5 - FOR 1 = 1 TO 7 - 

PRINT H H M II"; * NEXT * TW = 1625 

si print •• racccccccccccccccccccccccccc 

^ ^ ^ ^ CCCCCCCC H H 11 ; 

52 PRINT "DDDDDDDDDDDDDDDDDDDDDDDDDDEEEEDDDDDDDDD"j 

53 FOR T =1945 TO TW+40 STEP-40 * POKE T,0 ^POKE T*CU,10 
- NEXT 

54 A = PEEK ( V + 31 ) 

55 R = INT ( RND <1)*3+1>* ON R 

GOTO 85,60,70 
60 IF TW < = 1065 THEN lOO 

65 POKE TW + CO,10 * POKE TW,0 * TW = TW - 40 * 

GOTO 80 

70 IF TW > = 1945 THEN lOO 

75 POKE TW,32 - TW = TW + 40 

80 POKE TW + CO,2 * POKE TW,1 * GOTO 100 

85 POKE 54276,0 * IF RND ( 1 ) < .95 THEN lOO 

90 J = TW + 1 t EN = TW + 38 : POKE 54273,72 t 

POKE 54272,169 * POKE 54277,44 * POKE 54275,7 

* PW = O 

91 POKE 54274,0 * POKE 54276,65 

93 IF PEEK ( V + 31 ) THEN lOOO 

94 POKE J + CO,7 * POKE J,2*J=J+1* 

POKE 54272,PW * PW = PW + 6 - 
IF J < = EN THEN 93 

95 FOR EN = TW + 1 TO J * POKE 54274,PW i 

PW = PW - 6 i POKE EN,32 i NEXT 

100 K = PEEK ( 197 ) * HV = HV - FR - ( K = 2 ) 

101 IF K < >2 AND K < > 7 THEN 105 

102 POKE 54273,2 * POKE 54272,37 t POKE 54277,47 * 

POKE 54276,0 * POKE 54276,129 
105 IF HV < - 4 THEN HV = - 4 
HO IF HV > 4 THEN HV = 4 

115 VV = VV + GR + ( K = 7 ) * IF VV < - 4 THEN 

VV = - 4 

120 IF VV > 4 THEN VV = 4 

125 POKE V + 1, PEEK ( V + 1 ) + W i 

A = PEEK ( V + 1 ) i IF A < 48 THEN 
POKE V + 1,40 
130 IF A > 234 THEN 2000 

135 A = PEEK ( V ) + HV * B = PEEK ( V + 16 ) AND 1 
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* IF A > 255 THEN A * 0 * B « 1 

140 IF A < 0 AND B THEN B = O * A = 255 

142 IF A > 55 AND B THEN A = 55 
145 IF A < 32 AND B = O THEN lOOO 

150 POKE V,A i POKE V + 16, PEEK ( V + 16 ) OR B 

155 IF B = O AND PEEK ( V + 16 ) AND 1 THEN 

POKE V + 16, PEEK < V + 16 ) - 1 

160 IF PEEK ( V + 31 ) AND 1 THEN 1000 
165 GOTO 55 

lOOO POKE 2040,194 * POKE V + 28,1 * POKE 54273,34 t 
POKE 54272,75 * POKE 54277,143 

1005 POKE 54276,129 * FOR I = 1 TO 500 * NEXT * 

POKE 54273,0 * POKE 54273,0 * POKE V + 24,20 

1010 PRINT »HARD ^ LINES" * 

GOTO 2010 

2000 FOR I = 1 TO 5000 * NEXT * POKE 54273,0 * 

POKE 54272,0 - POKE V + 24,20 

2005 PRINT " Q EJ El El BD" SPC ( 15 ) "WELL ^ DONE ‘ " t 

PRINT HYOU ^ ESCAPED 

^ ALIVE" 

2010 PRINT " EJ E3 KJANOTHER A GAME?" * POKE V + 21,0 * 
POKE 54276,0 

2015 GET A* * IF A* = "Y" THEN POKE V + 24,28 ~ 

GOTO 30 

2020 IF A* = "N" THEN END 

2025 GOTO 2015 

lOOOO DATA 220,236,220,236,220,236,220,236,0 
,0,0,48,127,120,252,252 

10005 DATA 0,0,0,0,255,0,0,0,0,0,0,8,157,255,255 
,255,255,255,255, 255,255,255 
10010 DATA 255,255,0,0,0,0,0,0,0,255 
10015 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,12,32,0, 14,48,128,31,121 
10055 DATA 240,63,135,160,31,121,240,14,48,128 
,12,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10060 DATA 0,0,0,0,0,0,0,0,99,0,0,0,0,12,0,0,63 
,0,0,55,0,0,55, 0,252,55,O 
10065 DATA 55,247,240,53,87,112,13,85,255,3 
,85,87,0,245,95,0,213,240,0,55,0 
10070 DATA 0,55,0,0,221,192,3,93,192,13,125,192 
,13,205,192,55,3,0,0,0,0,0,0,0 
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CHEXSUM 

5=331 

10=1313 

12=2358 

15=404i 

20=3591 
25=3601 
30=4135 
35=2619 
59=3587 
51=3601 
52=3720 
53=3223 
54=836 
55=2497 
60=1266 
65=2794 
70=1276 
75=1403 
80=1836 
35=1772 
20=4842 
3 1 = 1227 
33=1202 
34=4530 
3 5=3514 
100=2273 
191=1673 
182=3285 
105=1463 
1 10=1 123 
1 15=3063 
120=1143 
125=3922 
138=347 
135=3812 
148=1673 
142=1295 
145=1401 
150=1938 
155=3286 
160=1444 


165=477 
1000=3332 
1005=3806 
1010=2355 
2000=3033 
2005=4558 
2810=2643 
20 15=2409 
2020=895 
2025=580 
10000 =3223 
10005=3967 
10010=1502 
10015=3938 
10055=4398 
18060=3430 
10065=3338 
1 0070 =4070 

TOTAL= 153499 
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Moon Buggy 



Manoeuvre your jumping moon buggy over the moon’s surface 
attempting to reach the landing pad on the other side without running out 
of fuel or crashing into a star mine. 

The moon buggy needs to build up thrust but be careful because once 
“lift-off’ has occurred it has a lot of forward momentum. The star mines 
are everywhere in space and you have to manoeuvre between them to 
get to the landing pad. 

Your controls are: 

Z’ left 
‘C’ right 
‘M’ thrust 
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PROGRAM STRUCTURE 

INITIALIZATION 

DISPLAY SET-UP 

GET KEYBOARD CHARACTER 

VERTICAL CONTROL OF BUGGY 

THRUSTSOUND 

ZERO FUEL TEST 

HORIZONTAL CONTROL 

MINE COLLISION TEST 

ERASE BUGGY 

DISPLAY BUGGY 

TEST IF BUGGY ON PAD 

DISPLAY REMAINING FUEL 

MINE EXPLOSION 

NEW GAME PROMPT 

DATA 


LINES 

1 — 15 

20 —45 & 200 —2050 
50 

52 — 77 

56 

78 

80 — 86 
87 

90,102 
100 
101 
102 

200 — 210 
220 — 235 
10000— 10025 


VARIABLES 

SC = SCREEN REFERENCE POINT 
XI = HORIZONTAL POSITION OF BUGGY 
Y1 = VERTICAL POSITION OF BUGGY 
X = PREVIOUS HORIZONTAL POSITION 
Y = PREVIOUS VERTICAL POSITION 
FU = FUEL 

K = KEYBOARD VALUE 
W = VERTICAL VELOCITY 
D = VERTICAL DISTANCE 
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MOON BU66Y 


1 POKE 55,255 * POKE 56,47 * V = 53248 
s POKE V 4- 32,0 * POKE V + 33,0 
5 FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 
s POKE 54296,15 

10 FOR 1=0 TO 111 * READ A * POKE 12288 + I, A 
i NEXT 

12 POKE V + 24,28 

15 X = 4 * Y = 17 * SC = 1024 * CO = 55296 
- KB = 197 * FU = 250 * W = O 
20 GOSUB 2000 
25 FOR I = 1 TO 25 
30 P = INT ( RND ( 1 ) * 630 ) 

* IF PEEK ( SC + P ) < >32 THEN 30 
35 POKE CO + P,10 J POKE SC + P, 12 * NEXT I 
37 PRINT "fi=3 HCCCCCCCCCCCCCCCCCCCCCCCC"; 

40 PRINT 

" HHJE1H3H1H3HJH3H3H3H3H3H3HJH3H3H ID 
[53 II IIEFG" i 


45 PRINT 

" 6=3H3 ■■■■■■ H3H3E3HJHJHJEJE3H3HJH3H3H3H3HIH3E] 
HI HI M II II II EIHIJ"; 


50 K = PEEK ( KB ) * IF FU < 2 THEN 60 
52 IF K < >36 THEN 60 

55 W = W - 1 * FU = FU - 2 

* IF W < - 5 THEN VV = - 5 

56 POKE 54273,72 * POKE 54272,169 * POKE 54277,15 

* POKE 54276,0 * POKE 54276,129 

60 W = W + .5 * IF W > 10 THEN W = 10 
65 D = W / 10 J Y1 = INT < Y + D ) 

* P = PEEK ( SC + Y1 t 40 + X ) 

J IF P = 2 AND W > O THEN FU = FU - .05 




O 

II 

a 

o 

O 

II 

> 

> 





67 

IF 

P = 12 THEN 200 





70 

IF 

P = 0 THEN XI = 

X - 1 * Y1 = 

= 

Y + 

1 



FU = FU - - 1 - 

GOTO 86 




75 

IF 

P = 1 THEN XI = 

X + 1 * Y1 = 

s 

Y 4- 

1 


s 

FU = FU - .1 * 

GOTO 86 




77 

Y1 

= Y + D - IF Y1 

< 1 THEN Y1 

= 

1 * 

W = 0 

78 

IF 

FU < 1 THEN 400 





80 

XI 

= X + < K = 12 ) 

- ( K = 20 

) 





FU = FU + ( K = 

= 12 ) 4- ( K 

= 

20 

) 


t 

IF XI < 0 THEN 

XI = 0 




85 

IF 

XI > 39 THEN XI 

= 0 




86 

IF 

X = XI AND INT ( 

Y1 ) = INT 

( 

Y ) 

THEN 90 

87 

IF 

PEEK ( SC 4- INT 

( Y1 ) * 40 

+ 

XI 

) = 12 


THEN 200 

88 IF PEEK ( SC + INT ( Y1 ) * 40 + X1 ) < > 32 
THEN 100 

90 POKE SC + INT ( Y ) I 40 + X,32 J X = XI - Y = Y1 

100 Y1 = INT ( Y > - POKE CO + Y1 * 40 + X,7 

* POKE SC + Y1 t 40 + X,11 

101 IF X > 33 AND X < 37 AND INT ( Y ) = 19 

THEN 300 

102 POKE SC + FU / 10,32 
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105 GOTO 50 

200 POKE SC + INT < Y ) * 40 + X,32 

t Y = INT < Y1 > t POKE CO + Y * 40 + X,2 

* POKE SC + Y * 40 + X,13 

205 POKE 54273,34 * POKE 54272,75 * POKE 54277,127 

* POKE 54276,0 * POKE 54276,129 

210 FOR I = 1 TO 2000 * NEXT t POKE V + 24,20 

* PRINT 

" Q m SDYOU ^ CRASHED A INTO ^ A ^ MINE K3 tt3 K3 K3 K1" 

220 PRINT M E9ANOTHER ^ GAME?" * POKE 54272,0 

* POKE 54273,0 

225 GET A* * IF A* = *T THEN 12 
230 IF A* < > "N" GOTO 225 
235 END 

300 FOR I = 1 TO 2000 * NEXT 
305 POKE V + 24,20 
t PRINT 

" a m ESWELL ^ DONE, a YOU ^ COMPLETED ^ YOUR ^ 

MISSION 09 K3 KJ te! M3" 

310 GOTO 220 

400 POKE V + 24,20 * FOR I = 1 TO lOOO * NEXT 

* PRINT 

" a YOU ^ RAN ^ OUT ^ OF ^ FUEL• K [fl M [fij K1 K] 11 

* GOTO 220 
2000 PRINT 

H H H HS)BA HHHHHHHHHHHHHB 
HHHHHHHHHHHBHHHHHHHH HS>B"; 

2005 PRINT 

"CCC HBBHHHHHBHBHBBHHHBH 
HHHBBBHHHBHHHH B3CCCCCA 
HHHHBHHHBHHHHBHHHHHHB 11 ; 

2010 PRINT 

11 BBBBBBBBBB B3CCCCCCCA BBB 
BBBBBBBBBBBBBBBBBBBB 

HBBB B B B3CCCCCCCCC B B B B B 
2015 PRINT 

"BBBBBBBBBB B3A BBBBB BCCCA 
B B CCCCCCCCCCA BBBBBBBBBBB 
B^BBCCA BBBBB"; 

2020 PRINT 

" CCCCBBCCCCCCCCCCC BBBBBBBBBB 
BS>CCCCC BBBBB B CCCCCCCCCCCCCCCCCBBA 

B B B B BS" 5 

2025 PRINT 

"BBCCCCCC BBBBB BCCCCCCCCCCCCCCCCCCCC 

BBB b»cccccccccbbbbbaccccccccccc m ; 

2030 PRINT 

" CCCCCCCCCCA B ©CCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCC BCCCCCCCCCCCC" i 
2035 PRINT "CCCCC"5 
2040 PRINT 

"CCCCCCCCCCCCCCCCCCCCCCBCCCCCCCCCCCCCCCCCC " ; 

2045 PRINT 

" CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC" ; 
t POKE 2023,3 


33 



2050 POKE 56295,1 * RETURN 

lOOOO DATA 1,3,7,15,15,31,95,255,128,192,224,240,248, 

248.252.255 

10005 DATA 149,255,255,255,255,255,255,255,255,255, 

255.255.255.255.255.255 

10010 DATA 0,0,24,126,126,60,24,36,0,0,1,2,2,2,5,5, 
66, 129,0,0,0,0,0,0 

10015 DATA 0,0,128,64,64,64,160,160,0,0,0,0,63,68, 
131,4,0,0,0,O,255,0,255,24 
10020 DATA 0,0,0,0,252,34,193,32,0,120,68,254,255, 
66,231,66 

10025 DATA 0,0,0,16,40,16,0,0,8,56,252,63,60,52,34,64 


CHEXSUM 

1 -3071 

5=2487 

18=2201 

12=672 

15=3932 

23=347 

25=718 

30=2994 

35=1815 

37=2328 

40=1533 

45=2107 

58=1598 

52=369 

55=3204 

56=3417 

68=2150 

65=6957 

87=343 

70=3501 

75=3501 

77=2283 

78=867 

30 = 4310 

85=1136 

36=2012 

37=2426 

38=2612 

90=2522 

193=3544 


181=2279 
102=1033 
105=473 
203=5231 
205=3417 
213=5069 
229=2450 
225=1243 
230=1327 
235=129 
300=1020 
305=5190 
310=527 
400 =5072 
2000=3823 
2005=4092 
2010=4889 
2015=4241 
2020=5376 
2025=6222 
2830=6515 
2935=639 
2040=3701 
2045=4398 
2050=738 
10800=3074 
10005=3759 
18910=3373 
180 J 5=3336 
10820=2787 


18025=2473 


TOTAL= 171732 
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Higher or Lower 



Bet on the card being higher or lower than the previous one. If you win, 
you may get the chance to go for double or nothing. 

The routines used to draw cards and select them from the deck are good. 
They would be useful in creating programs for your own card games. 

All instructions necessary for the game are in the program. 
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PROGRAM STRUCTURE 

LINES 

INITIALIZE — SCREEN 

0—1 

— DECK 

4 — 8 

WAIT FOR DEAL COMMAND 

10 

PRINT MONEY 

11 

PICK A CARD 

14— 16 

PRINT CARD 

17 — 37 

BUZZ 

38 — 39 

IF WIN 

40 

MUSIC AND MESSAGES 

50 — 52 

PLAY AGAIN? 

55 — 75 

ELSE MESSAGES AND PLAY AGAIN? 

80 — 95 

CLEAR BOTTOM OF SCREEN 

100—110 


VARIABLES 

S$ = SYMBOL OF SUITS 
C = PACK OF CARDS 
M = MONEY 

D = DOUBLE OR NOTHING 
CU = HOW MANY TURNS 
D = POINTER INTO PACK 
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HIGHER OR LOWER 


O PRINT "Q" * POKE 53281,7 * POKE 53280,6 

* DIM S* < 52 ) * DIM C ( 52 ) * M =* 20 * D = O 

i cu = o 

1 POKE 54296,15 * POKE 54276,0 * POKE 54278,240 

4 FOR J = O TO 3 * FOR I = 1 TO 13 

« C ( I + J » 13 ) = I i SI ( I + J > 13 ) 

= " to. * M 

5 IF J = 1 THEN SI ( I + J I 13 ) = "0 V" 

6 IF J * 2 THEN S* ( I + J * 13 ) = " to. 4 >" 

7 IF J = 3 THEN S* ( I + J * 13 ) = ” H ♦ " 

8 NEXT I,J 

10 POKE 54276,0 * POKE 54276,17 

11 POKE 54273,34 * POKE 54272,75 t PRINT ” H «MONEY 

^ ^ ^ ^ . II II II II II II " 5 M; "P" * GOSU8 lOO 

13 POKE 54273,0 * POKE 54272,0 • CU = CU + 1 

14 FOR I = 1 TO 4 

15 P = INT ( RND ( i ) * 52 +1) - IF C ( P ) - O 

THEN 15 

16 N1 = N J N4 = STR* <C(P) ) * N = C ( P ) 

17 IF C ( P ) = 1 THEN N* = " ^A" 

IB IF C ( P ) = 11 THEN N* = " ^ J” 

19 IF C ( P ) = 12 THEN N* = " ^ Q“ 

20 IF C ( P ) = 13 THEN N* = ,§ ^ K" 

21 IF C ( P ) = 10 THEN N* = "10” 

22 C ( P ) = O * PRINT " 0 (ffl * A A A l«.tTTfTTTT Bi 

HIGHER ^ OR ^ LOWER ta.tfTtTTTTTT" 

23 IF I * 1 THEN 27 

24 print 

HIGHER ^ OR ^ LOWER?” 

25 PRINT ” fcgEJMteJteJttJKJteJMMteJteJLfateJaJLfiJMLSlK 

HIGHER ^ OR ^ LOWER?" 

26 GET A* * IF Al < > "H" AND A* < > "L" THEN 25 

27 PRINT " HH**5 * IF I = 2 

THEN PRINT 11 £9 H H B H H H H H H H H 1 ; 

28 IF I = 3 

THEN PRINT '^BHHHHHBBHHBHH 
BBHBBBBH 1 . 

29 IF I = 4 

THEN PRINT 

BHBHBBBHHHHHBHHB 

30 PRINT " £)Ks]CS3[S]Kg](S3Cgffii@i@i@@^^[S]|lll 

■i ii ii ii ii m ^ A A ^ m K3 ii ii ii ii ii ii ii m 

^ ^ m is ii ii ii ii ii ii ii m * ^ ^ ^ ^ M" i 

31 print •• [*i ii ii ii ii ii ii ii m ^ ^ ^ ^ m “; 

32 PRINT " [fl II II II II II II ii m ^ ^ ^ ^ m K! II II II 

ii ii @i ^ ^ m ei ii ii ii ii ii ii ii m ^ . 

▲ US [53 II II II II II II II SI M a m M S! lH ” 

33 PRINT "HH"; 

* IF I = 2 THEN 

PRINT "^BBBBBBBBHBH 1 ; 

34 IF I = 3 

THEN PRINT "^BHHBBBBBHBBB 
BHHHHBHBH"; 

35 IF I = 4 
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THEN PRINT "aHHHHHHHBHHHH 

HHHHHHHHHHHHHHHBBH H"; 

PRINT “[01[gl(g![£l[£J[gl[fi!B« >> ;N«; 

- PRINT " KJEJETSS* < P > ; * PRINT " El El El S" 

>N* 

38 POKE 54276,33 * POKE 54273,6 * POKE 54272,206 

s FOR Z = 1 TO 200 * NEXT * POKE 54273,0 

39 POKE 54272,0 

40 IF A* = "H" AND N1 > N THEN 80 

41 IF A* = "L" AND N1 < N THEN 80 

50 FOR J = 1 TO 300 * NEXT J, I * FOR I = 1 TO 244 

STEP 2 - POKE 54273,1 * NEXT * POKE 54273,0 

51 IF D = 1 THEN PRINT " E3E1E1E1E1E1E1E1E1E1E1E1 

K1 El El El El El a YOU'VE ^ DOUBLED ^ YOUR ^ MONEY" 

* M = M * 2 t GOTO 53 

52 PRINT “ £9E1E1E!E)E1E3E!E1E!E!E1E)E]E3EIE!E1 


SWELL ^ DONE A YOU'VE ^ WON ^ 5P" * M = h + 5 
53 PRINT H S3 HMONEY A A A ^ ^ II II II || II" ;M; "P" 


55 D = O J PRINT " E1E1E1E1E1E1E1E1E1E1E1 

El El El El El El El DO A YOU A WANT 
^ TO ^ PLAY A AGAIN?" 

56 GET A* * IF Al = "N" THEN END 

57 IF A* < > "Y" THEN 56 

58 IF RND ( 1 ) < .5 THEN 70 

59 PRINT “ El ta.DO ^ YOU A WANT ^ TO ^ TRY A ’ 

DOUBLE ^ OR ^ BROKE'?" 

60 GET A* * IF A* * "N" THEN 70 
63 IF A$ < > "Y" THEN 60 

65 D = 1 

70 IF CU > 9 THEN 4 
75 GOTO 10 

80 FOR I = 244 TO 1 STEP - 2 * POKE 54273, I * NEXT 
* POKE 54273,0 

82 PRINT "E9EJE3EJE1E1E1EJEJEJEIEIE3E1EJE3EJE! 

SHARD A LINES A YOU'VE A LOST! " 

83 PRINT " 63 «MONEY A A A A ^ II II II II II" 5 M; "P" 
85 M = H - 5 i IF M = O OR D = 1 THEN PRINT " QYOU' 

RE A BROKE! A BYE" - END 

86D = 0i PRINT "DO A YOU A WANT ^ TO ^ PLAY A AGAIN? 


88 GET A* * IF A* = "Y" THEN 70 
90 IF A* < > "N" THEN 88 
95 END 

lOO PRINT " B El El El El" * FOR I = 1 TO 19 
105 PRINT 


106 NEXT 
110 RETURN 


38 










CHEXSUM 


0=4148 

55=3524 

1=1953 

56=1248 

4=4331 

57=1035 

5=1963 

58=1855 

6=2038 

53=3437 

7=1973 

60=1232 

3=33 1 

63=1080 

10=1221 

65=233 

1 1 =4363 

78=757 

13=1993 

75=472 

14=655 

39=2694 

15=2437 

32=2307 

16=1923 

83=2126 

17=1319 

35=3848 

18=1334 

Of; - O < 0.3 

19=1401 

98=1245 

26=1396 

99=I960 

21=1334 

■35= 129 

22=4316 

109=1154 

23=722 

195=2034 

24=2173 

106=131 

25=2173 

110=143 

£6=2265 

27=1717 

TOT^L = 136S2 


23=2125 

36=7509 

31=2003 

32=3410 

33=1717 

34 =1594 

33=2125 

37=2532 

33=3762 

33=527 

43=1461 

41=1461 

50=3813 

51=5205 

52=3303 

53=2126 



SCREEN 

DISPLAY 


tTtttt 
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North Sea Copter 



This game really tests your skill and though it might seem otherwise it is 
possible to complete it. 

You must land your copter on an oil rig, at night, in the height of a storm, 
visibility is nil and you rely on lightning to seethe rig. The wind buffets you 
about and as you manoeuvre or hover, gravity will pull you down, you 
must correct this by increasing lift. 

On the right of your screen are your instruments, watch your fuel and rate 
of descent, to land your rate must be below 2. 

‘A’ moves you to the left, ‘D’ to the right and ‘W’ gives you lift. 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

0 — 4 

SETUP GRAPHICS 

5— 19 

UPDATE GAUGES 

20 — 21 

LIGHTNING TIMING 

22 — 35 

READ KEYBOARD 

36—55 

UPDATE SPRITE POSITION 

66 — 80 

CRASH HANDLER 

100 — 200 

LANDING HANDLER 

500 — 640 

NOTE SEQUENCE FOR GOOD LANDING 

800 — 890 

SPRITE DATA 

9000 — 9070 

VARIABLES 



V = POINTER TO DISPLAY CHIP LOCATIONS 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 
T = LIGHTNING TIMER 
X = SPRITE X COORDINATE 

Y = SPRITE Y COORDINATE 
D = WIND DIRECTION 
PE = SPRITE COLLISION FLAGS 
F = FUEL LEFT 
G = DESCENT RATE 


SPRITE 


SPRITES No. 1 & No. 2 
FORMA 
HELICOPTER 
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NORTH SEA COPTER 


O 

1 

2 

3 

4 

5 


6 

7 

8 

9 

10 

11 

15 


16 


17 

18 

19 

20 


21 

22 


PRINT « POKE 53280,0 * POKE 53281,0 

* V = 53248 - CO = 54272 * POKE 54296,10 

* POKE 54276,0 

POKE 54276,129 * POKE 54278,240 
POKE 54273,0 * T = O * X = 35 + 

INT ( RND ( 1 ) * 180 ) - Y = 55 

t D = ( INT ( RND ( 1 ) * 5 ) - 2 ) / 2 

F = 10 J POKE V + 21,3 s POKE 2040,13 

* POKE V + 39,1 - POKE 2041,14 * POKE V + 40,4 

i POKE V + 28,3 

POKE V + 37,5 * POKE V + 38,7 * FOR I = O TO 190 

* READ Q * POKE I + 832,Q s NEXT 

PRINT " H tel te) HI tel tel HI tel tel tel tel II II II II II II II II I 

ii ii n □ e e e ie; e m ii ii ii ii ii ii ii ii j; 

«WIND A A 53 IJj tel II II II II II II II II Hi ^ ^ ^ ^ ^ 

a i - 

PRINT " tel II II II II II II II II II II II IJJ aDESC. ^ 69 : Jj 

I II II II II II II ! ...... Oi" 


te! I 
PRINT 
te) I 


te] 


ill 


ili 


■ FUEL ^ ^ 61 IT; 

W te] II II II II 


■I II II C 9 *=j i=j Ej E? E? Ej Q " 

FOR I = 56016 TO 56055 * POKE 1,6 
t POKE I - CO, 223 * NEXT 
« FOR I = 56056 TO 56296 * POKE 1,6 
POKE I - CO, 160 * NEXT t POKE V, X 
* POKE V + 2,X + 24 * POKE V + 1,Y 

t POKE V + 3,Y * PE = PEEK ( V + 31 ) 

PRINT n gte]te]te][S]te]KlHHHHH^DDte]|lllll 1 El 
E3 l tel II II II II VI El El I te] II II II II I El El L; te] 

■I II II II IJ E3 El I j te] II II II II IVI El El Li " 

PRINT 11 H H H B □ El Q □ (£] II II II II II VI 13 El El El I 

. . . . ia □— H ■! te] ■■ ii ii ii ii ii ii ii ii ii 

II II II II II : J 0 0 0 0 l j A A ^ ia ^ ^ t ^ n" 

PRINT 11 H B ia . ^ ^ H H ^ ^ ^ ^ ^ ^ ^ ^ A ^ ^ 

^ ■ Q" 

PRINT "BBBiaiZlBBnnBBBBBBBBBiaiZ! 

BBBBBQ 1 

PRINT M B B B ia 0 B ■ . BBBBBBBBBBiaiZ! 11 
PRINT 'BHBiaiZIHINHBBBBBBHHBIlifZr 
PRINT l> BBBiaiZ!BBBBBBBBBBBB[21 ,> 

PRINT " fc=2 tel tel te] te] te] te] te] tel te] tel tel Ifi] II II II II II II II 

ilia . - . IIII ii" ;d i print te] tei ii ii ii ii ii ii 

II ^ ^ ^ II II II II 1 '; INT ( G * 10 ) / io 
PRINT " [fi] tel II II II II II II II II ^ . . . II II II II" 

5INT < F * 10 ) / 10 

T = T + 1 i POKE 2041,14 * POKE 54273,100 


25 IF T = 30 THEN POKE 53281,11 

t PRINT 11 53 te! teJ te! te! tel II II 

II El te) II II □ II II El tel II II 


II II SB El tel II II “ II 
II IIEltel II II ~ II II El 


30 IF T = 32 THEN 

PRINT " H El Kl tel tel tel II II II II II ^ te) II II ^ II II ^ 

tel II II ^ II II ^ tel II II ^ II II ^ tel II II ^ II II ^ " 
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35 IF T = 35 THEN POKE 53281,0 ♦ T * O 

36 POKE 54273,0 

40 PE = PEEK ( 197 ) 

45 IF PE = 18 AND F > O THEN X = X + 2*F = F- .l 

50 IF PE = 10 AND F > O THEN X = X - 2 * F = F - . 1 

55 IF PE = 9 AND Y > 50 AND F > O THEN Y = Y - 2 

* G = O - F = F - .3 

66 X = X + D i IF RND ( 1 ) < .1 THEN X = X + 2 

* F = F - . 1 

68 POKE 2041,15 * POKE 54273,100 * Y = Y + G 

* G = G + .2 * IF X > 215 THEN X = 215 

69 IF X < 32 THEN X = 32 

70 POKE V,X * POKE V + 1,Y * POKE V + 2,X + 24 

* POKE V + 3,Y 

71 IF F < O THEN POKE 54296,1 

72 IF X > 11 AND X < 120 AND Y > 135 THEN 500 

78 IF PEEK ( V + 31 ) < > O THEN lOO 

79 POKE 54273,0 

80 GOTO 20 

100 POKE 53281,11 

t PRINT " S3 E] [fi [ffl KJ tel || || II || || a 13 tel II II “ II 

■I IZI tel II II £a II II IZ1 El II II r?i || || H El U l9 — Ia n 

101 POKE 54296,15 * FOR I = 20 TO O STEP - .2 

* POKE 54273,1 * NEXT * POKE 54273,0 

110 FOR 1 = 1 TO 20 - POKE V,X - I - POKE V + 2, X + I 

* NEXT 

120 FOR I = Y TO 220 * POKE V + 1,1 * POKE V + 3, I 

* POKE 54273,1 * NEXT * POKE 54273,0 
130 POKE V,0 * POKE V + 1,0 * POKE V + 2,0 

* POKE V + 3,0 
150 POKE 53281,0 

: PRINT M t=3 E3 KJ tel El tel II II II II II to. 13 El II II “ II 

■I 13 tel II II “ II II 13 tel II II “ II II 13 tel II II u II II □" 

180 FOR I = 1 TO 2000 - NEXT 
200 RUN 

500 IF G > 2 THEN 100 

600 POKE 53281,2 * POKE V + 1,136 * POKE V + 3,136 

* POKE 54273,0 * POKE 54276,0 * POKE 54276,17 
605 GOSUB 800 

610 PRINT “ fegteltelteJtelteltelteJtelteltelteltelteltelteltelteltelte] 
3ISi H H H ******* A WELL ^ DONE ^ ********* 

620 PRINT "ISBBBHHHBCg a ^ ^ ANOTHER ^ GO? ^ A ^ ** 
625 GET A* * IF A$ = "Y" THEN RUN 
630 IF A* < > M N M THEN 625 
635 PRINT M ISJ H HBYE ^ BYE. " 

640 END 

800 FOR I = 30 TO lOO STEP 2 ‘ POKE 54273,I s NEXT 

810 FOR I = 140 TO 95 STEP - 1 * POKE 54273,1 * NEXT 

820 FOR I = 5 TO 20 STEP .4 * POKE 54273,1 * NEXT 

830 FOR I = 90 TO 70 STEP - .3 * POKE 54273,1 * NEXT 

840 FOR I = lOO TO O STEP - 3 * POKE 54273,I t NEXT 

850 FOR I = 20 TO 10 STEP - .2 * POKE 54273,1 * NEXT 

860 FOR I = 90 TO 70 STEP - .2 * POKE 54273,1 t NEXT 

870 FOR I = O TO lO STEP .1 * POKE 54273,I * NEXT 
880 POKE 54273,0 * POKE 54277,0 
890 RETURN 
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9000 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 050 , 0 , 0 , 
0,0,0,0,0,0,0,64,64,0,17,0,0 
9010 DATA 7,174,0,10,170,0,4,0,0,17,0,0,64,64,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,99 

9020 DATA 0,0,0,0,0,0,85,85,85,0,16,0,0,215,0,0,251, 
0,3,184,192,3,184,240 

9030 DATA 15,186,176,15,190,176,171,190,252,171,170, 

252.187.255.252.15.255.240 

9040 DATA 3,223,192,0,16,0,0,16,0,5,85,64,0,0,0,0,0, 
0,0,0,0,99 

9050 DATA 0,0,0,0,0,0,0,84,0,0,16,0,0,215,0,0,251,0, 

3.184.192.3.184.240 

9060 DATA 15,186,176,15,190,176,171,190,252,171,170, 

252.187.255.252.15.255.240 

9070 DATA 3,223,192,0,16,0,0,16,0,5,85,64,0,0,0,0,0, 

0 , 0 , 0,0 

CHEXSUM 


0=4239 

68=4075 

840=2037 

1=1380 

69=1083 

350=2076 

2=4814 

70=2735 

368=2083 

3=4526 

71=1159 

878=1861 

4=3580 

72=2 1 14 

380=1167 

5=3688 

78=1582 

880=143 

6=5161 

79=528 

3000=4441 

7=3733 

80=472 

3010=4235 

3=4469 

100=6918 

3020=3704 

8=5143 

101=3420 

3630=4321 

10=3029 

110=2683 

9040=2987 

11=3413 

120=3698 

3050=3510 

15=1835 

138=2279 

3060=4321 

16=2155 

158=6966 

3870=2802 

17=1331 

180=1020 


18=1320 

£00=139 

TOTAL = £ 190: 

19=1142 

500=776 


20=6522 

800=4027 


21=3433 

605=302 


22=1305 

810=2617 


25=7912 

620=1733 


38=5338 

625=1263 


35=1611 

638=1125 


36=528 

635=382 


40=796 

648=129 


45=2580 

800=1927 


50=2572 

310=2881 


55=3527 

820=1864 


66=2944 

330=2084 
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Flight Simulator 



Test your skill at guiding your light aircraft onto the landing strip. Can you 
make a perfect landing? Watch your instruments as the runway comes 
up into view, you get all the feedback you need to do the job. 

Your controls are: 

‘FI’ gives a cockpit display 
‘F3’ gives a map 
‘A’ tilts the plane to the left 
‘D’ tilts it to the right 
‘W’ alters levelling up 
‘X’ alters levelling down 

Keys 1 — 9 decide your acceleration/deceleration 
‘ - ’ reverses the acceleration/deceleration rate 
‘space bar’ lifts or lowers your undercarriage depending 
upon its current position. 
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There are many ways in which to ‘fail’ your landing: 
if the plane is tilted on an angle 
if the last altitude reading was above 50 
(you’ve dropped the plane) 
if your attitude is not level 
if your undercarriage is not lowered 

Safe landing! 


SCREEN 

DISPLAY 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

0 — 25 

GET KEY PRESSED (A$) 

30 

PRINT COCKPIT DISPLAY 

35 

PRINT MAP DISPLAY 

36 

CHANGE ATTITUDE 

50 — 56 

RANDOM TILT 

67 

REVERSE ACCELERATION 

70 

READ SPEED KEY 

75 

LIFT OR LOWER UNDERCARRIAGE 

80 

CHANGE SPEED 

90—95 

CHANGE ALTITUDE 

100—105 

PRINT ALTITUDE, DISTANCE, SPEED 

134— 137 

CHECK DISTANCE AND ALTITUDE 

140— 148 

PRINT OUT COCKPIT MESSAGES 

160—179 

RESTART MAIN LOOP 

180 

SOUND ROUTINE 

182—190 

ROUTINES TO PRINT COCKPIT VIEWS 

200 — 730 

PRINT MAP 

1000— 1070 

PRINT OUT DETAILS OF LANDING AND 

ASK IF PLAYER WANTS ANOTHER GAME 

5000 — 6040 
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VARIABLES 

AL = ALTITUDE 

AT = ATTITUDE 

U = UNDERCARRIAGE 

Dl = DISTANCE 

A$ = HOLDS KEY PRESSED 

CS = START OF COLOUR SCREEN MEMORY 

SI = SPEED INCREMENT 

SP = SPEED 

SD = ACCELERATION OR DECELERATION 
SC = SCREEN MEMORY 
F = FUEL 

H = TILT OF PLANE 
M = 1 MAP VIEW, 0 COCKPIT VIEW 
I = TEMPORARY STORAGE 


48 



FLIGHT SIMULATOR 


O PRINT “ Q M * POKE 53281,0 * POKE 53280,9 * 

SC = 1024 * CS = 55296 

1 POKE 54296,5 * POKE 54277,0 - POKE 54278,0 * 

POKE 54276,0 * POKE 54278,240 * POKE 54276,129 

2 POKE 54273,0 * POKE 54272,0 *U=-1*AT=0* 

F = . 6 * AL = 5000 + INT ( RND < 1 ) * lOOO ) 

- DI = 2500 

3 H = O * M = O - SP = 300 * SI = 5 « SD = 1 

5 print m t=a a a a 12 a 


6 

7 

8 
10 
12 

14 

15 

16 

17 

18 

19 

20 
21 

22 


□ □ H l£j A a H a a "; 

FOR 1 = 1 TO 9 * PRINT " a a a E.i - a “ a a tel 

■I ■■ ll li II ll li II H II li II a is* a - u a a 

NEXT 

PRINT "la a a S a a iaHnnnnnnnnn 

a a 12 a a " 

PRINT H H B B K 0 H! II 110 

a (2 L4 II II II II 12 a 12 II II II II 12 ' 

FOR I = 440 TO 479 * POKE CS + 1,9 J 
POKE SC + 1,160 * NEXT 

print “EjKiKiiffloaKjEaBacaejEjejejED^ a a La 

□ A A A iBEja A . A A A A H TOWER a MESSAGE* 


a nr*; 

PRINT " H A ili A A. A. A. llj A. A. A QQ 

EOF a A. A. A. A. A. 

PRINT "a Ail; aKEjHa a [n a a Ej 

□ OiHU A A A A. AA aA 7 U ill AA A. A. A. 

print "aAQGGeeQA a a a a 

Hi HE A A A A A A ffi Hi A A A A A 

PRINT M AAAA*~AAAAAAAA^ 
L a A A A. A. A 7 U Ui A A A A A A A 

PRINT " AAAAAAAAAAAAA 

Hi a a a a a a A 2 ZiC 3 E;i=;?=;?=jE; 

PRINT "a A [3 ~ ~ ~ E] - A A A A A . 

PRINT "fl A Hi A A A Hi A A A A A A 

PRINT "a A Hi HIsHIslI Hi a a a 
ALTITUDE a a a a a *" 

PRINT M a A Hi A A A Hi A A A A A A 


A Hi Hi i_i Hi 
Ej Ej Ef B3 " 

. A A A Hi Hi 

A A A A A Hi" 

. a a Hi 

A A A A Hi'* 

m Hi Lj Hi ra 

A A Hi" 

. a H i L-i 
jEjEjiBB" 
a Hi i_i Hi" 

. a a eg es m" 

. A A A A k. 

^ A DISTANCE 


23 PRINT "aAQtjeEjHA a a a a a a a a El 

UNDERCARRIAGE* a fflUF" 

24 PRINT " a HORIZON, a a a a a a a E 3 SPEED 


25 POKE CS + 960,9 * POKE SC 960,223 * 

POKE CS + 999,9 * POKE SC + 999,233 
30 POKE 54273,0 * GET A* 

35 IF A* = "H " AND M = 1 THEN PRINT " CJ" * M = O * 

POKE 53281,0 * POKE 53280,9 * POKE 54273,100 * 

GOTO 5 Note: A$ = Fl Key 

36 IF A* = " B ” AND M = O THEN PRINT “ Q" * M = 1 * 

GQSUB 1000 Note: A$ F3 Key 
40 IF M = 1 THEN 90 

50 IF fi$ = "W M THEN AT = AT - 1 * IF AT < - 1 THEN 
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AT = - 1 

55 IF A$ = "X" THEN AT = AT + 1 * IF AT > 1 THEN 

AT = 1 

56 IF A» = "X" OR A* = "W" THEN GOSUB 500 

60 IF A* = "A" THEN H = H - 1 * IF H < - 1 THEN 

H = - 1 

65 IF A* = "D" THEN H = H + 1 * IF H > 1 THEN H = 1 

66 IF A$ = "A" OR A* = "D" THEN GOSUB 600 

67 IF RND ( 1 ) < .05 THEN H = INT 

( RND < 1 > * 3 > - 1 * GOSUB 600 

70 IF A* = ,, - M THEN BD = - SD ; POKE 54273, 1 

74 POKE 54276,0 

75 IF VAL ( A$ ) >0 AND VAL ( A* ) < lO THEN 

SI = VAL ( A$ ) * POKE 54276,0 * POKE 54276,33 * 

POKE 54273,100 

80 IF A* = " a. H THEN U = - U s GOSUB 700 

90 SP = SP + SI * SD s IF SP < 50 THEN SP = 50 

95 IF SP > 450 THEN SP = 450 
100 IF F < 6 THEN AL = AL - INT ( SP / 50 + AT < 

< SP / 5 ) / 5 ) i GOTO 110 

105 AL = AL - lOO 

HO IF F < 7 THEN F = F + (SI / 3200 ) 

120 IF F < 7 THEN DI = DI - .1 - 

( SP / 300 + U / 30 ) / 3 - SP / 50 : GOTO 130 
125 DI = DI - .2 
130 IF DI < O THEN 5000 

132 IF DI > 30 AND AL < O THEN 5000 

133 IF M = 1 THEN 140 

134 PRINT " snfc=3[fil[fi3KlK3El£fil[fiKSKlKlIfi][e3 

...... ▲ II II II II II II II " i AL 

135 PRINT 

^ ^ ^ ^ . II 

II II II II II II " ; INT ( DI ) 

136 PRINT 

^ ^ ^ . II 

II II II II II ll' .SP 

137 PRINT " 

BHHHHHBHHBSi 11 ; 

138 IF F < 7 THEN FOR I = 1 TO INT ( F ) * PRINT 

H ia u El ai 11 ; 9 next 

139 PRINT 

140 IF F > 5 THEN PRINT " fcgElElElElEJttlLflElttlEl 

HDANGER" 

142 POKE 54273,0 c POKE 54276,0 * POKE 54276,129 t 

IF AL < 10 AND DI < 50 THEN POKE 54273,10 

143 IF M = 1 THEN 30 


144 

IF INT 
GOSUB 

( DI 

200 

) 

> 

600 

AND 

INT 

( 

DI 

) 

< 

700 

THEN 

145 

IF INT 
GOSUB 

< DI 
250 

) 

> 

400 

AND 

INT 

( 

DI 

) 

< 

599 

THEN 

146 

IF INT 
GOSUB 

( DI 

300 

) 

> 

200 

AND 

INT 

( 

DI 

) 

< 

299 

THEN 

147 

IF INT 
AL < 

( DI 
300 

) > 

fHEN 

100 AND INT 
GOSUB 350 

( 

DI 

) 

< 

199 

AND 
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148 IF INT ( DI ) < 80 AND INT ( DI ) > 30 AND 

AL < 200 THEN GOSUB 400 

155 IF RND ( 1 ) < .8 THEN 30 

156 PRINT M 


157 print •• eacsflis][fi][tg[sauateiifi]te3ifiiLfi3te3tei[fi][s] 

ii ii ii ii ii ii ii ii ii ii ii ii ii a M ; 

160 IF RND ( 1 ) < .7 THEN 176 

161 IF F > 4 THEN PRINT " A LON ON [fi] II II II II II II 

^ FUEL" i GOTO 182 

165 IF SP = 450 AND DI < 300 THEN PRINT “COMING 

▲ IN IS] || || || || II || || || || l| IITOO A FAST 11 
GOTO 182 

170 IF AL < 500 AND DI > 500 THEN PRINT "YOUR ^ TOO 

^ M II II II II II II II II II II ^ LON 1 “ : GOTO 1B2 

175 IF F > 3 AND SP > 300 THEN PRINT 

" [fi] IITOO-FAST! “ * GOTO 182 

176 IF F > 4 OR SP = 450 AND DI < 300 OR AL < 500 

AND DI > 500 OR F > 3 AND SP > 300 OR 
RND ( 1 ) > -2 THEN 30 

178 PRINT “LOOKING ^ ^ H3 II II II II II II II II II II ^ GOOD 1 " 

179 POKE 54276,0 t POKE 54276,17 * FOR I = 1 TO 30 - 

POKE 54273,1 * NEXT * POKE 54273,0 

180 GOTO 30 

182 POKE 54276,0 * POKE 54276,33 

184 FOR I = lO TO 20 STEP .4 * POKE 54273,1 * NEXT - 

POKE 54273,50 

185 FOR I = 1 TO lOO t NEXT 
190 GOTO 30 

200 PRINT " HMlfi3K3K!KlKlfflle3HWyHHHHH 

HHHHHHHHHHHHSi.. [<9111111. . . - " 

210 RETURN 

250 PRINT 1 HMKMKlMfclfclHHWHWHHHH 

llll. ^ ^ - IS} 


260 RETURN 
300 PRINT 

HBHHBHBBHBH 11 ; 

305 PRINT “ Si- - tel II II II- - ▲ • [fi] II II II II II- ^ 

tel II II II II II II II- ....... II II 


310 RETURN 

350 PRINT “fc^telteltelteltelHHElElEllOElEJElElEl 

355 PRINT “ Si ... [£] II II II II.[£3 II II II II II II. 

. .. . ^ . [S3 II II II II II II II II. . . .. . . 

356 PRINT “ [g || || || || II II II II II II. ^ ^ ^ ^ . 


360 RETURN 

400 print 'msnsmHaaaaaaaaaHa 
aaaaaaaa"; 

405 PRINT "Hit] - Q ^ tel H II II II II £3- . . Q tel II II 

II II II o ^ .. . ^ Q tel II II II II II II II II D 

^ ^ ^ ^ ^ * a •*; 

410 PRINT “ ffl II II II II II II II II II II SJ ^ ^ * . 
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q ei 


a ei 


sj 


4ii print m ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ m u 
420 RETURN 

500 PRINT M HE3E3E1E3E!E3E3E1E!E1E3ES M - IF AT = - 1 
THEN PRINT " B B B k. H " 

510 IF AT = 0 THEN PRINT " B B B k. Ej “ 

530 IF AT = 1 THEN PRINT " B B B k. IZT* 

535 POKE 54276,0 * POKE 54276,129 * POKE 54273,20 
540 RETURN 

600 PRINT "E3HBE1E1E1E1E1E3E3E1E1EJE1E1E3E1E] 

El El El El ▲ . ▲ El II II II ▲ B ▲ El II II II ^ ^ m 

605 IF H = 1 THEN PRINT " □ □ □ H H S H E! H S H 

610 IF H = - 1 THEN PRINT “ □□□HHHH0E1E! 

II II II El" 

615 IF H = O THEN PRINT " □ □ B 0 iB H Ei" 

616 POKE 54276,0 * POKE 54276,129 * POKE 54273,40 
620 RETURN 

700 PRINT *' HEJEJEJEJEIEJEIEJEIEIEIEIEJEJEIE} 

[■OElElfElElHHHHHHHHHfiHHHHHH 

710 IF U = - 1 THEN PRINT " Si UP ^ A " 

720 IF U = 1 THEN PRINT " ESDOWN" 

725 POKE 54276,0 * POKE 54276,33 * POKE 54273,5 
730 RETURN 

lOOO POKE 53281,5 * POKE 53280,0 
1005 PRINT MAP- " 

1010 PRINT "ElEKgHHBBBHH A ^ a Ez? CONTROL 
A TOWER." 

1020 PRINT 11 fl B B B B B B Q l£i [| |j" 

1030 PRINT " B B H B B B B L3 11 |j a ■ E; RUNWAY" 

1050 PRINT " b«_E!E]E3E]E3EJE]EJE3ElEJEJE3ElBBB 
B B B B M a Ej STARTING ^ POINT" 

1060 PO = 207 + INT ( DI / 150 ) * 40 * POKE CS + 

P0,0 * POKE SC + PO,160 
1070 RETURN 

5000 POKE 53280,0 * POKE 53281,0 * PRINT 
"□(SIEIEIEIEIES" 

5010 IF AL > 50 THEN PRINT "YOU ^ MISSED ^ THE 
a. RUNWAY! " * GOTO 6000 

5020 IF AL < O THEN PRINT " *-*- YOU ^ CRASHED 6-^ " - 
GOTO 6000 

5030 IF H = - 1 AND RND ( 1 ) < .7 THEN PRINT 

"YOUR ^ LEFT ^ WING ^ HIT ^ THE ^ RUNWAY! " - 
GOTO 6000 

5040 IF H = 1 AND RND ( 1 ) < .7 THEN PRINT 

"YOUR ^ RIGHT ^ WING ^ HIT ^ THE ^ RUNWAY ! " - 
GOTO 6000 

5050 IF AT = 1 THEN PRINT "**YOU A NOSE-DIVED !**" * 

GOTO 6000 

5055 IF AT = — 1 THEN PRINT "**YOU ^ BELLY—FLOPPED 
!*»" * GOTO 6000 

5060 IF SP > 95 THEN PRINT " 4^ 4 s - YOU ^ CAME A IN A TOO 
^ FAST! 4* 4" " - GOTO 6000 

5065 IF U = - 1 THEN PRINT "YOU ^DIDN’T ^ LOWER ^ YOUR 
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^ UNDERCARRIAGE.“ 

5070 IF F > 5 OR SP >90 THEN PRINT "YOU ^ JUST ^ MADE 
A IT!" * GOTO 6005 

5080 IF SP > 70 THEN PRINT "**A ^ HARD ^LANDING!**" * 
GOTO 6005 

5090 IF SP > 60 THEN PRINT M M ®A ^ GOOD ^ LANDING 
! m H" - GOTO 6005 

5100 PRINT " ^ THAT ^ WAS ^ A A PERFECT A LANDING! " 

5105 POKE 54276,0 * POKE 54276,17 * FOR I = 1 TO 100 

STEP 2 * POKE 54273,1 * NEXT 

5106 POKE 54273,0 

5110 PRINT " BO 2BBRILLIANT! ^ SUPER!" * GOTO 6005 

6000 POKE 54296,15 

6001 POKE 54276,0 * POKE 54276,129 * FOR I = 1 TO lO 

STEP .2 t POKE 54273,1 * NEXT — 

6002 FOR I = 30 TO O STEP - .5 i POKE 54273,JL * NEXT 

6003 FOR I = 1 TO 300 * NEXT * POKE 54273,0 " 

6005 PRINT “ K3 [?3 K3 [fi] UDO ^ YOU A WANT ^ ANOTHER ^ GO?" 

6010 GET A* * IF A$ = ,, Y H THEN RUN 

6020 IF A* < > "N" THEN GOTO 6010 

6030 PRINT M la|BYE. M 

6040 END 

CHEXSUM 


0=3002 

36=2557 

135=3318 

1=3833 

40=735 

' 136=3851 

2=5236 

50=3148 

137=2624 

3 =P233 

55=2768 

138=2586 

5=7026 

56=1762 

133=153 

6=4538 

60=2737 

148=2416 

7=6856 

65=2353 

142=4 1 14 

p - O O O p 

66=1723 

143=727 

58=2735 

67=2733 

144=2387 

12=5563 

78=2038 

145=2407 

14=5638 

74=527 

146=2335 

15 = 4 1 13 

75=4753 

147=3143 

16=4173 

88=1627 

143=2337 

17=3186 

38=2518 

155=1846 

18=4838 

35=1375 

156=5476 

13=8468 

188=4813 

157=2757 

20=8812 

185=81 1 

160=1113 

21=3253 

118=1777 

161=3333 

88=822 I 

128=4317 

165=6861 

OjrOQOQ 

125=748 

178=5363 

84=8151 

139=913 

175=3161 

25=3623 

132=1554 

176=5788 

38=877 

133=783 

178=2332 

35=4638 

134=4655 

173=3614 
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=2497 
= 1898 
=2579 
= 1667 
= 1362 


1028 = 
1030 = 


1050=2762 

1060=3668 

1078=143 

5380=1884 

5818=3454 

5828=2333 

5830=5329 

5043=5235 

5850=3056 

5055=3516 

5860=3340 

5865=4263 

5078=3683 

5880=3885 

5038=3623 

5103=2574 

5185=3243 

5 166 =528 

5 1 18 = 2449 

6808=535 

688 1 =3342 

6082=2833 

6083=1587 

6885=2352 

6818=1263 

6828=1578 

6838=517 

6840=123 

TOTAL= 366336 
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Slalom 



Can you complete the slope? If you can, how many points can you get? 

You gain points for passing through the posts and crash if you hit a tree or 
an ice crack. 

Watch the skier jump for joy if he completes the course or end up, 
upside-down in the snow if he trips on a tree! 

Your controls are: 

Z’ tilts the skis left 
‘M’ tilts the skis right 

Movement continues in the chosen direction until changed! 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

Note: 6 clears collision register by PEEKing it 

0 — 6 

FINISHED COURSE? 

10 

READ KEY 

If course ending print finish line 

11 

GO LEFT? 

12 

GO RIGHT? 

14 

CHECK FOR LEFT, RIGHT BOUNDARIES 

15— 16 

UPDATE POSITION OF SKIER 

17— 18 

HIT ANYTHING? f 

19 

PRINT AND MOVE TREES 

20 — 80 

FINISHED COURSE 

100 

WHAT HAS BEEN HIT? 

101 — 108 

SOUND ROUTINE 

200 — 220 

PRINT FINISH LINE ROUTINE 

300 — 310 

FINISHED ROUTINE WITH JUMPING SKIER 

500 — 540 

ANOTHER GAME? 

550 — 580 

MISSED FINISH POSTS 

1000— 1050 

DATA 

9000— 10040 
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VARIABLES 

D = DIRECTION OF SKIER: 0 = LEFT, 1 = STRAIGHT, 2 = RIGHT 
V = VIDEO CHIP 

SL = LENGTH OF COURSE COVERED 
S = SCORE 

I, Q, A, Z = TEMPORARY STORAGE 

X = POSITION OF SKIER (HORIZONTAL) 

PE = KEY PRESSED 

XI = TREE POSITION 
T = NO. OF TREES 
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SLALOM 


O POKE 55,255 * POKE 56,47 * POKE 53281,15 ~ 

POKE 53280,15 * PRINT " Q" 

1 D = 1 * X = 140 - V = 53248 *SL = 0*S = 0* 

POKE V + 21,1 

2 POKE 2040,193 * POKE V + 39,2 * 

FOR I = O TO 318 * READ Q * 

POKE 12288 + I,Q * NEXT 

3 POKE 54278,0 * POKE 54276,0 * POKE 54273,0 ~ 

POKE 54272,0 

4 POKE 54296,10 5 POKE 54278,240 - POKE 54276,129 

5 FOR I = 12800 TO 12871 * READ A * POKE I,A * 

NEXT * POKE V + 24,28 * FOR I = 12544 TO 12551 

6 POKE 1,0 - NEXT * POKE V,X * POKE V + 1,60 i 

Z = PEEK ( V + 31 ) 

10 S = S + 1 * SL = SL + 1 i PRINT "feaifiltfitSlMteltel 

IF SL = 220 THEN lOOO 

11 POKE 54273,0 * PE = PEEK ( 197 ) * 

IF SL = 180 THEN GOSUB 300 

12 IF PE = 12 AND D > O THEN D = D - 1 * 

POKE 2040,192 + D * POKE 54273,100 

14 IF PE = 36 AND D < 2 THEN D = D + 1 ; 

POKE 2040,192 + D - POKE 54273,100 

15 IF X < 45 THEN D = 1 * X = 45 * 

POKE 2040,192 + D - GOTO 18 

16 IF X > 239 THEN D = 1 - X = 239 * 

POKE 2040,192 + D - GOTO 18 

17 X = X + ( D - 1 ) * 3 

18 POKE V,X 

19 IF PEEK ( V + 31 ) = 1 THEN lOO 

20 IF RND ( 1 ) < .7 AND T = O AND SL < 175 THEN 

T = 1 - XI = INT ( RND ( 1 ) * 30 ) 

25 IF PE = 12 OR PE = 36 THEN POKE 54273,0 

30 IF RND ( 1 ) < .1 AND T = O AND SL < 175 THEN 

PRINT TAB( INT ( RND ( 1 ) * 30 ) ) 

j " ha. ILJ "AAAAAAA ta. Hi 14 

31 IF RND ( 1 ) < .1 AND T = O AND SL < 175 THEN 

PRINT TAB( INT ( RND ( 1 ) * 30 ) ) 

; " K * 6>“ * GOTO 10 

40 IF T = O THEN PRINT ; GOTO 10 

50 IF T = 1 THEN PRINT TAB ( XI ) 5 " fcl H S3 “7 M * 

T = 2 t GOTO 10 

60 IF T = 2 THEN PRINT TAB ( XI ) " H fifl □ □ O" - 

T = 3 * GOTO 10 

70 IF T = 3 THEN PRINT TAB ( XI ) H H H □ □ □" - 
T = 4 - GOTO 10 

80 IF T = 4 THEN PRINT TAB ( XI ) M H ^ If* ; 

T = O - GOTO 10 

100 IF SL > 197 THEN 500 

101 IF PEEK ( 1104 + ( X - 20 ) / 8 ) = 1 OR 

PEEK ( 1405 + ( X - 20 ) / 8 ) = 1 THEN 

GOTO 20 

102 IF PEEK ( 1106 +(X-20)/8)=l THEN 

GOTO 20 
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103 

IF PEEK ( 1144 + 

( X - 20 

) 

/ 8 ) 

= 1 OR 


PEEK ( 1145 + 
GOTO 200 

( X - 20 ) 

/ 

8 ) = 

= 1 THEN 

104 

IF PEEK ( 1146 + 

( X - 20 

) 

/ 8 ) 

= 1 THEN 


GOTO 200 





105 

IF PEEK ( 1064 + 

( X - 20 

) 

/ 8 ) 

= 1 OR 


PEEK ( 1065 + 
GOTO 20 

( X - 20 ) 

/ 

8 ) = 

= 1 THEN 

106 

IF PEEK ( 1066 + 

( X - 20 

) 

/ 8 ) 

= 1 THEN 


GOTO 20 





107 

IF PEEK ( 1024 + 

( X - 20 

) 

/ 8 ) 

= 1 OR 


PEEK ( 1025 + 
GOTO 20 

( X - 20 ) 

/ 

8 ) 

= 1 THEN 

108 

IF PEEK ( 1026 + 

( X - 20 

) 

/ 8 ) 

= 1 THEN 


GOTO 200 





110 

POKE 54296,15 





115 

POKE 2040,196 - 

FOR I = 60 TO 170 

t 


POKE 54273,175 

-It POKE 

V + 1 

, I t NEXT 

116 

POKE 54273,1 





120 

POKE 2040,195 





130 

FOR I = 1 TO 700 

t NEXT t 

POKE 54273,0 

140 

POKE V,0 * POKE 

V + 1,0 t 

POKE 53280,0 t 


POKE 53281,0 * 

POKE V + 

24,20 


150 

PRINT ** □ £3HARD 

^ LUCK A YOU * 

VE ^ CRASHED! ** 

160 

PRINT ** Iffl tel M KJ k YOU ^ COMPLETED L3 ** 


INT ( SL / 2 ) 

5 X k ^ OF 

^ THE" 


170 

PRINT "COURSE. KYOU ^ SCORED 

^ " 



INT < S / 4 ) 

"POINTS." 




180 

GOTO 550 





200 

S = S * 2 i POKE 

54296, 15 

- 

POKE 

54276,0 t 


POKE 54276,33 * FOR I = 20 TO 50 J 


POKE 54273,1 * NEXT 

210 POKE 54296,15 t POKE 54276,0 t POKE 54276,129 t 
POKE 54273,0 
220 GOTO 20 
300 PRINT 

ii b □ ii e b b b b b b b b » m o kj ii 

310 RETURN 

500 POKE 54273,10 * POKE 2040,193 t 

FOR 1=1 TO 5 t FOR J = 1 TO 20 STEP 1 t 
FOR Z = 1 TO 20 t NEXT 

510 POKE V + 1,50 + J t NEXT J t FOR J = 20 TO 1 
STEP - 1 t FOR Z = 1 TO 20 - NEXT t 
POKE V + 1,50 + J i NEXT J,I 
515 FOR I = 1 TO 240 STEP 5 * POKE 54273,1 t NEXT t 
POKE 54273,0 

520 POKE V,0 * POKE V + 1,0 t POKE 53280,0 t 
POKE 53281,0 t POKE V + 24,20 
530 PRINT M Q l=|YOU'VE A COMPLETED ^ THE ^ COURSE* ** 

540 PRINT " [fi] LfiJ »YOU * SCORED ^ k " 5 S ; 
m ^ POINTS. " 

550 PRINT " [*} Si DO ^ YOU ^ WANT ^ TO ^ PLAY A AGAIN?** 
560 GET A* t IF A* = "Y" THEN RUN 
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570 IF A* < > “N" THEN 560 
575 PRINT M M M SB BYE" 

580 END 

1000 FOR I = 1 TO 240 * POKE 54273, I * NEXT * 

POKE 54273,0 * POKE 53280,0 - POKE 53281,0 
1010 POKE V,0 * POKE V + 1,0 * POKE V + 24,20 * 

PRINT " Q 53HA HA ! " 

1020 PRINT M [fij k. YOU ^ MISSED ^ THE FINISH ^ POST! " 

1030 PRINT " m HBAD ^ LUCK. " 

1040 PRINT " [S3 »YOU ^ SCORED ^ "5 INT < S/4 ) ; " A POINTS. " 

1050 GOTO 550 

9000 DATA 0,56,0,0,56,0,0,56,0,0,16,0,0,124 
,0,0,187,0,1,57,0, 1,57,0,0,185 
9010 DATA 0,0,165,0,0,36,0,0,68,0,0,66,0,0 
,34,0,0,35,O,0,50, 0,0,36,0,0,72,O 
9020 DATA 0,144,0,1,32,0,2,64,0,99 
9030 DATA 0,56,0,0,56,0,0,56,0,0,16,0,0,124 
,0,0,187,0,1,57,0,1,57,0,0,185 
9040 DATA 0,0,165,0,0,36,0,0,68,0,0,66,0 

,0,42,0,0,38,0,0,50,0,0,33,0,0,64,128 
9050 DATA 0,128,64,1,0,0,2,0,0,99 
9060 DATA 0,56,0,0,56,0,0,56,0,0,16,0,0 

,124,0,0,187,0,1,57,0,1,57,0,0,185 
9070 DATA 0,0,165,0,0,36,0,0,68,0,0,66,0 

,0,42,0,0,38,0,0,98,0,0,33,0,0,16,128 
9080 DATA 0,8,64,0,4,32,0,2,16,99 
9100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
9110 DATA 0,0,0,16,0,8,8,0,16,4,0,32,2,0 
,64,1,0,128,0,129,0,2,66,64 
9120 DATA 0,0,0,0,255,0,99 
9160 DATA 2,0,0,1,0,0,0,128,64 
9170 DATA 0,64,128,0,33,0,0,50,0,0,38,0,0 
,42,0,0,66,0,0,68,0,0, 36,0,0,165,0 
9180 DATA 0,185,0,1,57,0,1,57,0,0,187,0,0 
,124,0,0,16,0,0,56,0,0,56,0,0,56,0 
10000 DATA 255,255,255,255,255,255,255,255 
10010 DATA 0,0,0,59,255,231,0,0,128,192,224 
,240,128,128,128, 128,3,3,3,3,3,3,3,3 
10020 DATA 192,192,192,192,192,192,192,192 
10030 DATA 0,0,24,24,60,126,126,255,3,3,7,15 
,31,63,63, 127,192, 192,224,240,240 
10040 DATA 248,252,252,60,60,60,60,60,60,60,60 
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CHEXSUM 

0 =2330 
1=3026 
2=3673 
3=2333 
4 =2089 
7=4132 
6=2753 
10=3754 
11=2723 
12=3453 
14=3457 
15=2934 
18=3110 
17=1153 
13 =376 
13=1333 
20=3777 
25=1955 
30=5392 
31=5193 
40=1339 
50=2563 
80=2907 
70=2317 
80=2457 
1 00=1006 
10i=4334 
108=2443 
103=4335 
104=2506 
105=4336 
106=2449 
197=4332 
103=2506 
1 10=595 
1 15=3526 
1 16=523 
120=576 
130=1537 
140=P381 

150=2402 


160=3334 
178=3119 
160=530 
200=4422 
210=2552 
220=472 
300=5050 
310=143 
500=4251 
510=5091 
5 15=2516 
520=2981 
530=2644 
540=2579 
550=2476 
5S0 =1263 
570=1123 
575 =543 
580=123 
1080=3519 
18 1 8=27 16 
5480=2593 
1830=906 
1049=2736 
1050=530 
3800=3698 
9010=3334 
3020=1449 
9033=3833 
3040=4174 
3050=1406 
30-68=3698 
3070=41 S3 
3039=1380 
3 100=3361 
5H 18=3293 
3128=977 
3168=1175 
9178=3913 
3188=3949 
18888 - 1336 


100 10=4231 
18020 =1382 
18038=4066 
18848=2180 

TOTfii^ — 223575 
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Fruit Machine 



A version of the old favourite. It costs you £10 a go and you can win up to 
£100. Pull the handle and try your luck! 

The program contains some nice graphics. All instructions are included. 



SPRITE 



SPRITE 


CHERRY 


STRAWBERRY 










PROGRAM STRUCTURE 

LINES 

SPRITE INITIALIZATION 

1 — 10 

DRAW MACHINE 

20—115 

GET KEY: CONTINUE OR END 

120 

CALL HANDLE DOWN’ 

122 

GET 3 RANDOM FRUITS 

125— 140 

POSITION FRUITS 

141 — 142 

CALCULATE PRIZE 

160— 170 

DISPLAY FRUITS 

171 — 175 

DRAW HANDLE UP 

178— 180 

CALCULATE WALLET 

190 — 200 

IF BROKE, CONTINUE OR END 

210—5000 

DRAW HANDLE DOWN’ 

8000 — 8030 

SPRITE DATA 

9000 — 9080 


VARIABLES 

M = MONEY 

W = PRIZE MONEY FOR CURRENT SPIN 

V = SPRITE POINTER 

R(X) = FRUIT ARRAY (X = 1,2, or 3) 
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FRUIT MACHINE 


1 M = 30 * W = 0 

2 DIM R ( 3 ) • V = 53248 * POKE V + 21,7 

3 POKE 2040,13 : POKE 2041,14 * POKE 2042,15 

t POKE V + 39,2 * POKE V + 40,5 * POKE V + 41,9 

4 FOR N = O TO 190 * READ Q * POKE 832 + N,Q ; NEXT 

5 POKE V,108 * POKE V + 1,100 * POKE V + 2,160 

* POKE V + 3,100 i POKE V + 4,210 

* POKE V + 5,100 

lO POKE 53281,0 * POKE 53280,0 
20 PRINT M Q HI MONEY ^ 

30 PRINT M 


31 

PRINT 

" 2D 

- - 

- 

- - 

- 

13 

- - 


- 

- - - 

- 

- - 

- 

32 

PRINT 

" 2D 


- 

- - 

- 

13 

- - 


- 

- - - 

- 

- - 

- 

33 

PRINT 

" 2D 





3 



m 

^ 


3 ^ 



m ^ 




13 ^ 


■ 



13 

^ ^ ^ 


" 


34 

PRINT 

" 2D 








■> 

^ ^ ^ 


3 ^ 



m A 




13 ^ 


m 



13 

▲ ▲ ▲ 


" 


35 

PRINT 

“ 2D 








■ 

^ ^ ^ 


3 ^ 



m ^ 




13 ^ 


■ 




^ ^ ^ 


" 


36 

FOR I 

= 1 

TO 7 












37 

PRINT 

" 2D 

- - 

- 

- - 

- 


- ‘ 

- - 

- 

- - - 

- 

- - 

- 

38 

NEXT 






* 








39 

PRINT 1 

1 SteJLfilteJLfiMttJIffllfiJte] 

II II 

11 


■1 

H 3 







^ m 

kj ii ii a ia A 

mil . 

Lfi3 


II . 

El 1 

II II 1 

II 

II . 



A ■■ 








42 PRINT M 

ggfl ^ |gg gg ^ gg ^ ^ gg ^ ^ ^ ^ ^ gg|g ^ |ffig •• 


43 print " m ^ ^ ^ m ^ ^ m ^ m ^ ^ m ^ ^ m ^ ^ ^ m" 

44 PRINT " M M M ^ ^ ffl ^ ^ M ^ ^ M ^ ^ ^ M" 

45 PRINT “ gi ^ ^ ^ M ^ ^ ffl A ^ 

^ ^ ^MACHINE 

46 PRINT " tfl k. YOU ^ WIN A Jt" 

100 PRINT " fc=3 H H H H H H H 3 ^ ^ ^ ^ . II II II II II '; M 


110 PRINT 1 KMMMHKtelHKlKHHHHlilHWHHN 

H a’C' A TO A CARRY ^ ON [g] || || || || || || || || || || 

II II II 7 Q' ^ TO ^ QUIT" 

115 POKE 198,0 

120 GET A* * IF A$ = "Q" THEN 5000 

121 IF A* < > "C" THEN 120 

122 GOSUB 8000 
125 FOR I = 1 TO 3 

130 R ( I ) = INT ( RND < 1 > * 3 + 1 ) 

* IF RND ( 1 ) < .7 AND R ( I ) = R ( I - 1 ) 

THEN 130 

131 IF R ( I ) = 3 AND RND < 1 ) < .6 THEN 130 

140 NEXT 

141 IF I = 2 THEN PRINT " SttllffllfflKItelttlHIGfcl 
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BBBBBBBBBBBBB" ; 

142 IF I = 3 THEN PRINT " fcafflMfiflttlfflEltelBBBBB 

bbbbbbbbbbbbbbbbbb; 


160 

IF R ( 

1 

) 

= 1 

AND 

R 

( 

2 

) 

= 

1 

AND 

R 

( 

3 ) 

• = 

1 


THEN 

W 

= 

10 














161 

IF R ( 

1 

) 

= 1 

AND 

R 

( 

2 

) 

= 

1 

AND 

R 

( 

3 ) 

' < 

> 1 


THEN 

w 

= 

5 














162 

IF R ( 

1 

) 

= 2 

AND 

R 

( 

2 

) 

= 

2 

AND 

R 

( 

3 ) 

» = 

3 


THEN 

w 

= 

20 














163 

IF R ( 

1 

) 

< > 

2 AND 

R 

( 

2 

) 

= 

2 







AND R 

( 

3 ) < 

: > : 

2 THEN 

W 

= 

15 






164 

IF R < 

1 

) 

= 3 

AND 

R 

( 

2 

) 

= 

3 

AND 

R 

( 

3 ) 

i = 

3 


THEN 

w 

= 

100 














165 

IF R < 

1 

) 

= 3 

AND 

R 

( 

2 

) 

=« 

3 

AND 

R 

( 

3 ) 

> < 

> 3 


THEN 

w 

= 

50 














166 

IF R < 

1 

) 

< > 

3 AND 

R 

( 

2 

) 

= 

3 







AND R ( 3 ) < > 3 THEN W = 50 

170 IF W < >0 AND RND < 1 ) < .8 THEN 125 

171 POKE V + 21,7 J FOR Z = 1 TO 3 

172 IF R ( Z ) = 1 THEN POKE V + 38 + Z, 2 

173 IF R < Z ) = 2 THEN POKE V + 38 + Z, 5 

174 IF R < Z ) = 3 THEN POKE V + 38 ♦ Z, 9 

175 POKE 2039 + Z,R ( Z ) + 12 « NEXT 
178 PRINT 

■I II II II II II II II II a . . . [£] II . IS II . (S) II . m 
II II . . a E! II II II a . 


179 PRINT “ H El tel tel tel tel El tel tel tel II II II II II II II E3 13 a 

^ m II II II . a ^«KJiinai£i^te3ii^K] 

II A K! II II II II a A A a " 

180 PRINT " fcSteltelteJteJtelteJteJttlteltelteltelteltelteJttltel 

K![£ie3K]Kll«]BBBBHBBBH a a a II II H"W 


190 M = h - 10 

200 M = M + W * W = O * IF H > O THEN GOTO 100 

210 PRINT ” b=3 13YOUR A BROKE! ! M 

220 PRINT “ BflWANT A ANOTHER A GAME?" 

230 GET A* * IF A» = "Y" THEN RUN 
240 IF A* < > "N" THEN 230 
250 END 

5000 PRINT " Q" t PRINT "BYE A BYE ^ THEN" 

5010 END 

8000 print " feg ea m kj kj isq m ki do tei n n n n n n n ^ ^ 

A K) II II II A A A m II II A K] II A [gl II A W II A 

IS] II II II II A A A 

8010 PRINT " fc=2teltelte3te3te3te]te]te!te3te]te3te3te}te]|||lllll 

II II II II II 13 m A. A A A tel II A tel II A tel II A tel II 

II 13 A A A El II II II A A A " 

8020 POKE V + 21,0 

8028 FOR I = 1 TO 500 * NEXT 

8030 RETURN 

9000 DATA 0,0,96,0,0,224,0,1,224,0,2,224,0,2, 96,0, 
4,32,0,8,0,0,8,0,0,28,0,0,62 
9010 DATA 0,0,127,0,0,255,128,1,255,192 
9015 DATA 1,255,192,1,255,192,1,255,192,0,255,128,0 
9020 DATA 127,0,0,62,0,0,28,0,0,0,0,99 
9030 DATA 0,1,128,0,2,0,0,4,0,0,4,0,0,63,0,0,255, 
128,7,255,192,15,255,224,31,255 
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9040 DATA 240,63,255,248,63,255,248,63,255,240,63, 
255,248,31,255,240, 31,255,240 
9050 DATA 31,255,192,15,255,192,7,255,128,3,255,0,1, 
255,0,0,60,0,99 

9060 DATA 0,0,0,0,24,0,0,36,0,0,36,0,0,24,0,0,60,0, 
0,127,0,0,255,128,0,255,128 
9070 DATA 0,255,128,1,255,192,1,255,192,3,255,224,3, 
255,224,7,255,240,7,255,240 
9080 DATA 7,255,240,15,255,248,127,255,255,63, 
255,254,0,24,0 


CHEXSUM 

1=747 
2= 1705 
3=3987 
4=8103 
5=44 1 1 
10=1171 
80=346 
30=1330 
3 1 = 18 8 8 

3 p = i g c; g 

33=2.435 

34=2435 

35=2435 

36=656 

37=1383 

00-131 

33=4386 
48=4037 
43=2942 
44=3718 
45=3005 
46=1086 
100=1658 
110=5348 

i 15=420 

120=1354 

121=1113 

122=355 

125=656 

130=3968 

131=1765 

140=131 

141=3609 


142=2850 
160=2495 
161=2636 
162=2498 
163=2311 
1 64=2556 
165=2695 
166=23 15 
170=1730 
171=1385 
172=1743 
173=1745 

174=1743 

175=1456 
1 7 7 8 = 4 4 4 0 
173=4986 
129=2083 
138=6 16 
208=2241 
210=1173 
820=1667 
838=1263 
248=1128 
258=123 
5088=1624 
5810=123 
2080=4347 
3910=4570 
3820=616 
8026=964 
3030=143 
3038=429 1 
3810=1762 


3815=2462 
3028=1632 
3039=4437 
3040=4467 
9650=3231 
3068=4274 
3678=4437 
8080=2398 

TD T r«L = 16534! 



BELL 
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Sea Harrier 



This is an exciting up-to-date warfare game! 

You are the pilot of a carrier-based aircraft and your mission is to destroy 
an invading submarine using depth charges. 

The enemy submarine must be destroyed in one minute, by dropping a 
depth charge on him, or he will escape to attack your country. When 
dropping your charges you must be careful not to detonate a nuclear 
mine placed by your own forces! The submarine will change depth and 
speed trying to avoid your assault. 

On the right is you fuel gauge, if it reaches the top you have run out of fuel 
and will crash. To prevent this you can return to your carrier to replenish 
your fuel and launch another attack on the sub. Be careful to land gently 
and not crash. 

Your controls are: Z’ to move up ‘ >’ to go right 

C’ to move down ‘space bar’ to drop 

< ’ to go left depth charge 
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PROGRAM STRUCTURE 

INITIALIZATION 
DECREMENT FUEL GAUGE 
MOVE SUBMARINE 
MOVE HARRIER — INPUT KEY 
FIRE CHARGE 

IF FIRED MOVE THE CHARGE 
MOVE UP 
MOVE LEFT 
MOVE RIGHT 

MOVE DOWN, CHECK IF HIT SEA 
MOVE DOWN, CHECK IF HIT SHIP 
CHECK TIME 
MOVE CHARGE 
HIT SUBMARINE? 

HIT MINE? 

DESTROYED SUBMARINE 
HIT NUCLEAR MINE 
TIME UP? 

CRASHED INTO SHIP? 

CRASHED INTO SEA? 

START AGAIN? 


LINES 


1 — 10 


12 — 14 


126—130 
200 — 260 


300 — 360 


400 — 450 


500 — 550 


5000 — 5040 


5050 — 5090 
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VARIABLES 

V = VIDEO CHIP 
CO = SOUND CHIP 

X, Y = HORIZONTAL, VERTICAL FOR SPRITE #0 (HARRIER) 

XI, Y1 = HORIZONTAL, VERTICAL FOR SPRITE#1 (SUB) 

X2, Y2 = HORIZONTAL, VERTICAL FOR SPRITE #3 (CHARGE) 
Tl$ = TIME LEFT 



HARRIER 

(PLAYER) 



SPRITE 

MINE 



SUBMARINE 




SPRITE 

BOMB 

(PLAYER) 
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SEA HARRIER 


O POKE 55,255 * POKE 56,47 - PRINT " Q" * V = 53248 

* CO = 54272 i POKE 53281,0 * POKE 53280,2 

* F = 10 

1 FOR I = 55816 TO 56296 * POKE 1,6 

* POKE I - CO, 160 i NEXT - G = O 

2 POKE V + 21,63 * POKE 2040,192 t POKE 2041,193 

* POKE 2042,194 * POKE 2043,195 * POKE V + 44,7 

3 POKE 2044,195 * POKE 2045,196 * POKE V + 39,1 

s POKE V + 40,14 « POKE V + 41,0 
i POKE V + 42,21 

4 POKE V + 43,7 * POKE V + 29,18 * POKE V + 23,16 

i FOR I = 0 TO 318 * READ Q s POKE 12288 + 1,0 
i NEXT * X = 26 

5 Y = 133 * XI = 29 J Y1 = 160 

+ INT ( RND ( 1 ) * 60 ) * POKE V,X 

i POKE V+1,Y*D=1* POKE V + 2,XI 

* POKE V + 3,Y1 

6 FOR J = O TO 24 - FOR I = 55330 TO 55335 

* POKE I + J * 40,2 t POKE I + J * 40 - CO,160 

i NEXT I,J 

7 POKE V + 5,160 + INT ( RND ( 1 ) * 60 ) 

* POKE V + 4,70 + INT ( RND < 1 ) * 180 ) 

8 PRINT " A 

^ ^ ^ ■ E 153" * POKE V + 8,210 i POKE V + 9,55 

t GOSUB 80 

9 POKE 54296,1 * POKE 54278,240 ~ POKE 54276,129 

t TI* = ■•OOOOOO" 

10 print a tel KJ Iffl II II II II II II B IZJTIME" 

11 print ■■ is ki kj ifl ii II ; right* < ti *,2 > 

* POKE 55652 + INT < F > * 40,4 

12 XI = XI + D ♦ 2 i IF XI > 240 

THEN D = INT ( RND ( 1 ) * 3 - 3 ) 

* Y1 = 160 + INT ( RND ( 1 ) * 60 ) 

13 IF XI < 28 THEN D = INT ( RND ( 1 ) * 3 + 1 ) 

* Y1 = 160 + INT ( RND ( 1 ) * 60 ) 

14 POKE V + 2, XI * POKE V + 3,Y1 

20 PE = PEEK ( 197 ) 

25 IF PE = 60 AND X > 60 AND X2 = O THEN X2 = X 

c Y2 = Y + 8 i G1 = O « F = F - .1 

t POKE 53273,200 

26 IF X2 > 0 THEN GOSUB 10O 

27 IF F < 1 THEN 53 

28 IF PE < > 12 AND PE < > 20 AND PE < >47 

AND PE < >44 THEN POKE 54272,0 ~ POKE 54273,0 
t GOTO 56 

29 POKE 54273,108 t POKE 54272,223 

30 IF PE = 12 AND Y > 50 THEN Y = Y - 2 

40 IF PE = 47 AND X > 28 THEN X = X - 4 

50 IF PE = 44 AND X < 230 THEN X = X + 6 

51 F = F - .06 - IF PE = 20 THEN F = F - . 1 - 6 = G + 2 

« GOTO 56 

53 IF Y > 140 THEN 5000 

54 IF F < 1 THEN Y = Y + G - GOTO 56 

55 G = 0 c GOTO 58 

56 Y = Y + G i 6 = G . 1 c IF Y > 140 THEN 5000 
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57 IF X > 25 AND X < 59 AND Y > 133 AND G > 1-3 

THEN 500 

58 IF X > 25 AND X < 59 AND Y > 133 THEN G = 0 

* F = 10 * Y = 133 * GOSUB 80 

59 POKE V,X i POKE V ■*- 1, Y * IF TIS = "000100" 

THEN 400 

60 GOTO 11 

80 PRINT " H [fil El K3 El El El El El El II II II II a lid LJ El II 

ei ii o m ii a ei ii lj ki ii a ea 11 a ei ii cj ei 

II □ [SI II □ K3 II L •* 

85 RETURN 

lOO X2 = X2 + -5 - IF Y2 > 140 THEN Y2 = Y2 + G1 / 2 

102 IF Y2 < 141 THEN Y2 = Y2 + G1 

105 IF G1 = O THEN POKE 54272,0 * POKE 54273,40 

106 G1 = G1 + -3 

HO POKE V + 7,Y2 
112 POKE V + 6,X2 

120 IF Y2 > 230 THEN Y2 = O i X2 = O * POKE V + 7,0 

* G1 = 0 

125 IF PEEK ( V + 30 ) = lO THEN 200 

126 IF PEEK ( V + 30 ) = 12 THEN 300 

130 RETURN 

200 POKE V + 2,0 * POKE V + 3,0 * POKE V + 10,X1 

* POKE V + 11,Y1 * POKE 54296,15 

210 FOR I = 70 TO 10 STEP - .3 * POKE 54273,1 - NEXT 

* POKE 54273,0 * POKE 54272,0 

220 FOR 1=1 TO 11 - POKE V + 1,0 * NEXT 
230 POKE V + 10,0 * POKE V + 11,0 

* PRINT " Q El E3 a YOU’ VE A DESTROYED ^ THE 

^ SUBMARINE! ! M !" 

240 PRINT " El El HWELL ^ DONE! " 

250 PRINT " El Hi YOUR ^ TIME ^ WAS RIGHTS ( TIS,2 ) 

5 " ^ SECONDS" 

260 GOTO 5050 

300 FOR I = 1 TO 11 * POKE V + 1,0 * NEXT 

* POKE V + 29,32 * POKE V + 23,32 

310 POKE V + 2,0 * POKE V + 3,0 * POKE V + 10, X2 
i POKE V + 11,Y2 * POKE 54296,15 

* POKE 53281,8 

320 FOR I = 90 TO O STEP - -2 * POKE 54273,1 

* POKE 53280,1 / 10 * NEXT * POKE 54273,0 

* POKE 54272,0 

325 POKE 53280,0 * POKE 53281,0 * POKE V + 29,0 

* POKE V + 23,0 

330 POKE V + 10,0 * POKE V + 11,0 

* PRINT " a Kl HI a YOU' VE ^ HIT A THE 

^ NUCLEAR ^ MINE!!!!!!!!!!!!“ 

340 PRINT " m E! E3IDIOT!!!!!" 

350 PRINT " El 2D YOU A LASTED ^ FOR ^ " ; RIGHTS ( TIS,2 ) 

; " ^ SECONDS-" 

360 GOTO 5050 

400 POKE 54296,15 * POKE 54276,0 - POKE 54276,33 
410 FOR I = 255 TO O STEP - 2 t POKE 54273,1 t NEXT 

* POKE 54273,0 * POKE 54272,0 

420 FOR 1=0 TO 11 - POKE V + 1,0 * NEXT 
« POKE 53280,0 * POKE 53281,0 
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430 PRINT " a E3 EJ a YOU' VE ^ RUN ^ OUT A OF ^ TIME! " 

435 PRINT “ Q M ES GTHE A SUB ^ WILL * GO A ON ^ TO 

^ DESTROY ^ YOUR ^ ^ ^ ^ ^ A COUNTRY!!!!!!" 

440 PRINT “ HI HI El MYOU ^ BUNGLING ^ FOOL !!!!!!" 

450 GOTO 5050 

500 POKE V,0 * POKE V + 1,0 5 POKE V ■+■ lO, X 
5 POKE V + 1 1, Y t POKE 54296,15 
510 FOR I = 70 TO 20 STEP - .2 * POKE 54273,1 
- NEXT * POKE 54273,0 * POKE 54272,0 
520 FOR I * 1 TO 11 * POKE V + 1,0 * NEXT 

530 POKE V + 10.0 * POKE V + 11,0 * PRINT " Q E3 E3 a YOU'VE 

^ CRASHED INTO ^ YOUR ^ SHIP* !!!»** 

540 PRINT " EJ El TOUGH ^ LUCK! " 

550 GOTO 5050 

5000 POKE V,0 * POKE V + 1,0 * POKE V + 10,X 
* POKE V + 11,Y « POKE 54296,15 
5010 FOR I = 80 TO 30 STEP - .2 * POKE 54273,1 
i NEXT * POKE 54273,0 * POKE 54272,0 
5020 FOR I = 1 TO 11 * POKE V + 1,0 * NEXT 

5030 POKE V + 10,0 s POKE V + 11,0 J PRINT " Q El BA a YOU'VE 

^ CRASHED INTO ^ THE ^ SEA •!!!!" 

5040 PRINT " E3 BO E9HARD ^ LINES. ** 

5050 PRINT M fe=aBflE3te3L£3B0E3E3EJB0L®3BaE3[£3H3k.DO ^ YOU 
^ WANT ^ ANOTHER ^ GO?" 

5060 GET A* * IF At = "Y" THEN RUN 
5070 IF A$ < > "N" THEN 5060 
5080 PRINT " BO K1 »BYE ^ BYE. " 

5090 END 

9000 DATA 0,0,0,0,0,0,192,0,0,192,0,0,240,0,0, 

252,3,0,255,255, 192,255,255,252 
9010 DATA 63,255,255,63,255,240,31,240,0,63,252,0, 
63,0,0,0,0,0,0,0,0,0,0,0,0,0 
9020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,99 

9030 DATA O, O, O, O, O, O, O, O, O, O, O, O, Q, O, O, O, 56, O, O, 56, O, O, 1 24, 
0,3, 255,192,127,255 

9040 DATA 252,255,255,255,255,255,252,15,255,224,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9050 DATA 0,0,0,0,0,0,0,0,99 

9060 DATA O, O, O, O, O, O, O, , O, O, O, O, 4,8, 16,2,8, 32, 1,8, 

64,0,136,128,0, 127,0,0, 127,0 
9070 DATA 7,255,240,0,127,0,0,127,0,0,136,128,1,8, 
64,2,8,32,4,8 

9080 DATA 16,0,0,0,0,0,0,0,0,0,0,0,0,99 
9090 DATA O, O, O, O, O, O, O, O, O, 0, O, O, O, O, O, O, O, O, O, 0, O, 
0,28,0,0,62,0,0,127,0,0 

9100 DATA 127,0,0,127,0,0,62,0,0,28,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9110 DATA 99,128,0,32,18,1,8,233,0,4,99,63,1,48, 

84.32.19.8.1.89.109.22 

9120 DATA 8,12,38,0,52,149,128,243,211,99,63,0,128, 

72,1,19,8,0,89,2,22 

9130 DATA 99,0,2,18,76,149,2,64,1,99,4,7,91,16,0, 

19.8.54.1.109.22 
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CHEXSUM 

0=4547 120 

1=3112 125 

2=4167 126 

3=4349 130 

4=5113 200 

5 = 6075 2 10- 

6=5016 220 

7=3662 230 

3=3633 P40 

3=2951 250 

10=1633 260 

11=2818 3G0 

12=4828 310 

13=3797 320 

14=1494 325 

20=736 330 

25=5010 340 

20=336 350 

27=718 363 

28=5265 488 

23=1376 410 

30=1343 420 

40=1340 430 

50=1937 435 

51=3427 44S 

53=971 453 

54=1730 583 

55=846 510 

58=2312 520 

57=2713 530 

58=3539 546 

53=2456 558 

68=473 5803 

38=5320 5319 

85=143 582G 

108=2708 5038 

102=1593 5848 

105=1881 5058 

106=705 5868 

110=653 5078 

112=656 5G88 


2767 5838=123 

1456 3800=4154 

1456 9010=4867 

143 9820=1653 

3543 3038=4363 

3335 3848=4505 

1586 3050=1873 

5195 3063=4352 

1824 3370=3838 

3231 9088=1723 

533 9838=3383 

3144 9108=4333 

4288 8118=3547 

4282 9120=3500 

2613 3133=3130 

5233 

331 TOTAL= 258728 
3353 
583 
1906 
331 1 
2834 
2299 
4316 
2 131 
583 
3128 
3334 
1586 
4831 
1093 
583 
3128 
3339 
1586 
4788 
1 138 
=2833 
= 1263 
= 1 188 
= 1082 
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Cats & Dogs 



It’s raining cats and dogs! You have to catch suicidal cats and dogs but if 
you don’t they die. For every third miss, a cross will appear, but you are 
only allowed three crosses. 

Controls are: ‘Z’ to move your animal lover to the left and ‘M’ to move 
him/her right. 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

0 — 9 

CHECK ANIMALS AND MOVEMENT USING 
KEYS PRESSED 

11 — 14 

CAUGHT ANYTHING? YES: SCORE 

15 

NOISE 

20 — 22 

MOVE MAN 

25 — 30 

NOISE 

60 

IF THIS ANIMAL NOT ON SCREEN 

65 

PUT ONE ON (12% CHANCE) 

66 — 69 

ELSE MOVE HIM DOWN 

70 — 85 

IF HIT GROUND 

86 

PICTURE 

90 

SOUND 

91—92 

IF 3 HIT: TUNE AND CROSS 

93 

ELSE IF CAUGHT 

94 

NOISE 

95 — 97 

SCORE AND PICTURE 

98— 100 

NEXT ANIMAL 

105—110 

DO ALL AGAIN 

120 

TUNE AND CROSS FOR HIT ANIMALS 

1000— 1040 

IF 3 DEAD 

1050 

TUNE AND MESSAGES 

2000 — 2110 

DATA 

8000 — 9045 
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VARIABLES 

LL = LIVES LOST 
P = YOUR POSITION 
L = ARRAY POSITION OF ANIMALS 
SP = ARRAY WHETHER CAT OR DOG 
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CATS AND DOGS 


O L = 1 * POKE 55,255 * POKE 56,27 t V = 53248 

* FOR I - 1 TO 54 i READ R * NEXT 

1 PRINT "a” i POKE V + 32,3 t POKE V + 33, 1 

* FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

* POKE V + 24,28 

2 POKE 54296,10 * POKE 54276,0 * POKE 54278,240 

* FOR I = 12288 TO 12407 * READ R * POKE I,R 

i NEXT 

3 POKE 54290,0 * POKE 54292,240 

4 P = 11 * DIN L < 3 ) ,SP ( 3 ) - FOR I = 1 TO 3 

*L(I>=0*SP<I>=0* NEXT 

5 S = 0 * SC = 1024 - CO = 54272 * CS = 55296 

6 PRINT 

" HE)E]KlKlElKlfflE!KlKlElE!Klffl[£lHl a HI M 

■I II II II j a km M II ||NN [fl II IIN" 

* FOR I = 1824 TO 2023 

7 POKE I + CO, 2 * POKE 1,4 * NEXT * POKE 198,0 

8 POKE V + 33,0 * POKE V + 32, RND ( 1 ) * 16 

* GET A* * IF A$ = M " THEN 8 

9 POKE V + 32,6 
10 FOR I = 1 TO 3 

12 PI = P * M = PEEK ( 197 ) 

* IF M < > 12 AND M < > 36 THEN 50 

13 PI = PI + ( M = 36 ) * ( PI < 38 ) - ( M = 12 ) 

» ( PI > 1 ) i IF PI = P THEN 50 

14 PE = PEEK ( 1744 + PI ) 

* IF PE > 5 AND PE < 32 THEN 50 

15 PE = PEEK ( 1784 + PI ) 

* IF PE < > 32 THEN DS = S / 2 

t IF S < 60 THEN S = S t 2 * GOTO 60 

20 POKE 54277,0 * POKE 54286,240 * POKE 54276,0 

* POKE 54273,40 * POKE 54272,200 

21 POKE 54276,129 * POKE 54290,0 

22 POKE 54291,0 * POKE 54292,240 t POKE 54287,57 

* POKE 54286,172 * POKE 54290,17 
25 POKE 1744 + P,32 J POKE 1784 + P,32 

* POKE 1704 + P,32 

30 POKE 1744 + PI + CO,3 * POKE 1744 + P1,0 

* POKE 1784 + PI + CO,3 * POKE 1784 + Pl,l 
50 P = PI 

60 POKE 54273,0 * POKE 54272,0 * POKE 54287,0 

* POKE 54286,0 

65 IF L ( I ) < > O THEN 70 

66 IF RND ( 1 ) > .12 THEN 110 

67 L < I ) = 1146 + INT ( RND ( 1 ) * 36 ) 

* POKE 54277,0 * POKE 54286,240 * POKE 54276,0 

* POKE 54276,129 

68 POKE 54273,72 * FOR J = 254 TO 235 STEP - .5 

* POKE 54272,J * NEXT * POKE 54272,0 

* POKE 54273,0 

69 SP ( I ) = INT ( RND ( 1 ) * 2 ) 

70 LI = L ( I ) 

80 LI = LI + 40 

85 PE = PEEK ( LI + 40 ) 
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86 IF PE < >4 AND PE < > 5 THEN 95 

90 POKE LI + 40,4 * POKE LI + CO,4 + SP ( I ) 

* POKE LI,5 * POKE L ( I ) ,12 

91 POKE 54277,0 * POKE 54286,240 * POKE 54276,0 

t POKE 54276,129 * POKE 54273,34 

92 FOR J = 150 TO 135 STEP - 1 * POKE 54272, J 

* NEXT * POKE 54272,0 * LL = LL + 1 

93 POKE L ( I ) , 32 * L ( I ) = O 

i IF LL = 3 THEN lOOO 

94 GOTO 110 

95 IF PE < > O AND PEEK ( LI ) < > O THEN lOO 

96 POKE L ( I ) ,7 i POKE 54296,10 * POKE 54291,0 

* POKE 54290,0 * POKE 54292,240 

* POKE 54290,33 

97 POKE 54287,64 * POKE 54286,188 * FOR J = 1 TO 50 

* NEXT J POKE 54287,0 * POKE 54286,0 

98 POKE L ( I ) ,32 - L ( I ) = O 

t S = ( S + ( LL + lO ) > + ( 2 t L ) 

t GOTO 110 

lOO POKE L ( I ) , 32 * POKE LI + CO,4 + SP ( I ) 
i POKE LI,2 + SP ( I ) 

105 L < I > = LI 
110 NEXT 
120 GOTO 10 

lOOO L = L + 1 * POKE 54287,0 * POKE 54276,0 

c POKE 54283,0 - POKE 54272,0 * RESTORE 

* POKE 54296,15 

1010 PRINT " H"; TAB ( 18 + ( L * 4 > > 5 "F" 

^ POKE 54276,0 * POKE 54290,0 * POKE 54292,0 

* POKE 54278,0 

1015 POKE V + 32,0 - POKE 54291,9 * POKE 54277,96 
1020 FOR Z = 1 TO 18 - READ A, B, LE * B1 = B * 2 + 1 

- A1 = A I 2 : IF B1 > 255 THEN A1 = A1 + 1 

i B1 = B1 - 257 

1025 POKE 54287, A * POKE 54286, B * POKE 54273, A1 
i POKE 54272,B1 * POKE 54290,17 
1030 POKE 54276,33 * FOR K = 1 TO LE * NEXT 

* POKE 54273,0 * POKE 54272,0 * POKE 54287,0 
1035 POKE 54286,0 * POKE 54290,0 * POKE 54276,0 

* NEXT Z 

1040 POKE V + 32,6 - LL = O - POKE 54278,240 

* POKE 54292,240 * POKE 54277,0 * POKE 54291,0 

1050 POKE 54296,10 * IF L < 4 THEN 94 

2000 POKE V + 32,0 * POKE V + 24,20 * PRINT " Q" 

2010 PRINT " BBHARD ^ LUCK" 

2020 PRINT " EJYOU ^SCORED"S"PDINTS" 

2030 PRINT " M MANOTHER ^ GAME?" 

2040 PRINT " mOR ^ WAS ^ THE ^ LAST ^ ONE ^ TOO ^ TOUGH" 
2070 GET A* * IF A* = "Y" THEN RUN 
2080 IF A* < > "N" THEN 2070 
2090 PRINT " MBYE ^ BYE ^ THEN. " 

2100 PRINT " ^ YOUR ^ COMPUTER A IS"; 

2110 END 

8000 DATA 34,75,400,0,0,40,34,75,300,0,0,40,34,75, 

100,34,75,400,0,0,40 

8010 DATA 40,200,300,38,126,100,0,0,40,38,126,300,34, 
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75,100,0,0,40,34,75,300 

8020 DATA 0,0,40,34,75,100,0,0,40,34,75,500 

9000 DATA 0,0,129,129,185,186,146,124,56,56,56,40,68, 
68,68,198 

9010 DATA 4,7,4,56,112,208,72,72,14,14,4,14,31,142, 
110,60 

9015 DATA 255,255,255,255,255,255,255,255 

9020 DATA 0,0,28,60,254,255,255,255,24,24,255,255,24, 
24,24,24 

9025 DATA 0,73,42,0,99,0,42,73 

9030 DATA 0,0,3,13,25,62,96,192,56,232,28,28,62,62, 
127,8 

9040 DATA 28,22,59,56,124,124,254,16,0,0,192,176,152, 
124,6,3 

9050 DATA 0,0,0,0,146,68,1,82,128,128,128,128,128,128, 
128,128,1,1,1,1,1,1,1,1 

CHEXSUM 


0=3333 

36=721 

2830=1267 

1=4571 

35=1039 

2048=2766 

2=4360 

86=1736 

£070=1263 

3=1273 

30=3206 

2080 =1184 

4=3520 

31=3328 

2890=1204 

5=2356 

pC* = ^cp^ 

2108=1745 

6=4157 

83 = 2 156 

£ 110=123 

7=1746 

34=526 

8080=3465 

3=3201 

35 -2088 

3018=4034 

3=613 

36=3837 

3820=1353 

10=656 

97=37 1 1 

9300=38 15 

1 p-OROCJ 

op =3705 

3918=2737 

13=4202 

100=3010 

9815=1866 

14=2754 

105=555 

3020=2945 

15=4312 

1 18=13 1 

9825=1214 

29=3315 

123=472 

9830=2710 

21=1263 

1000=3373 

9048=2917 

22=3237 

10 16 = 3365 

9858=4137 

£5=2535 

1015=1913 


30=4256 

1620=5631 

TOTAL= 184141 

50=335 

1025 =3336 


60=2333 

1030=3547 


65=1101 

1035=2083 


86=1 163 

1640=3836 


67=4537 

1050=1402 


63=4253 

2000=1852 


63=1350 

2010=933 


73=554 

2820=1773 
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Horse Racing 



Bet on the horses without losing anything. The game begins with the 
names of the four horses displayed against their odds. You must choose 
a horse and place your bet. 

Program contains full instructions. 



SPRITE 

HORSE 
SHAPE 
No. 2 



SPRITE 

HORSE 
SHAPE 
No. 1 


80 












PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

1—9 

DISPLAY PLAYER’S FINANCE 

20 — 21,500 

GENERATE ODDS 

11 

DISPLAY ODDS 

25 — 36 

PROMPTING FOR BETS 

20 

SETUP RACE DISPLAY 

100— 120 

RUN THE RACE 

130— 140 

DISPLAY RESULTS 

205 — 5040 

DATA FOR ‘SPRITE’ CHARACTERS 

9000 — 9050 


VARIABLES 

M = PLAYER’S MONEY 

OD() = ODDS OF EACH HORSE 

B = PLAYER’S BET 

H = HORSE CHOSEN 

H() = POSITION OF EACH HORSE 

Z = DELAY LOOP VARIABLE 

HN = WINNING HORSE 
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HORSE RACING 


O REM * A DAY AT THE RACES * 

1 M = lOO i CO = 54272 * POKE 53280,0 

* POKE 53281,0 

2 FOR N = O TO 126 * READ Q i POKE 832 + N, Q 

* NEXT N 

3 V = 53248 ^ POKE V + 21,15 * POKE 2040,13 

* POKE 2041,13 * POKE 2042,13 * POKE 2043,13 

4 POKE V + 39,2 * POKE V + 40,3 * POKE V + 41,4 

* POKE V + 42,5 

5 POKE 54296,15 * POKE 54277,64 * POKE 54278,128 

* POKE 54276,129 * POKE 54273,0 
9 POKE 54272,0 

10 PRINT “ Q a ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ A ^ DAY ^ AT 

^ THE ^ RACES" 

11 FOR I = 1 TO 4 J OD ( I ) = INT ( RND ( 1 ) 

* 10 + 1 ) * NEXT 

20 PRINT " M M BAYOU ^ HAVE ^ jt M ); M; "LEFT. " 


21 IF M = O THEN 500 

25 PRINT M M M m HORSE ^ ODDS" 

26 PRINT "QQQQQQQQQQQBQBQQL3Q 

U Q B Q " 

30 PRINT "Mai- ^ HRED ^ DEVIL ^ ^ ^ ^ ^ a” 

5 0D ( 1 ) j “ /1 '* 

32 PRINT M Bfl a2. ^ k THE ^ BLUE ^ MAX ^ ^ a" > OD ( 2 ) 

- V1 « 

34 PRINT " M a3. ^ »PINK ^ LADY ^ ^ ^ ^ ^ a “ 

5 OD ( 3 ) 5 "/1“ 


36 PRINT H M a 4. A fig GREEN ^ GOBLIN ^ ^ a" 5 OD ( 4 ) 

5 ”/l" 

40 PRINT " M M 5j . ^ BET A HOW ^ MUCH" 

50 INPUT B - IF B > M THEN PRINT " 

^ A ^ □ □ □ □" * GOTO 40 
60 PRINT “ MON A WHICH ^ HORSE ^ <1,2,3, 4) " 

70 INPUT Hi IF H < 1 OR H > 4 THEN PRINT " □ ^ ^ 

* GOTO 60 

80 PRINT PRESS 

^ ANY A KEY 

90 GET A* i IF A* = “” THEN 90 

100 PRINT "Q" i POKE 53281,5 * POKE 53280,8 

i FOR I = 55496 TO 56135 * POKE 1,0 
i POKE I - CO,160 

101 NEXT 

102 FOR I = 55456 TO 55495 * POKE 1,1 

i POKE I - CO,35 i NEXT 

103 FOR I = 56136 TO 56175 * POKE 1,0 

i POKE I - CO,163 i NEXT 

105 PRINT - a M M M M M M II II II II II II II II II II ^ ^ M 

II ▲ M II ▲ M II ▲ M II ▲ M II ▲ M IIF M III M UN M 

III M IIS M IIH M II ^ MU ^ MU ^ MU ^ MU" 

106 PRINT " MMMMMMHLSJ - MU ^ MU ^ MU - MU 

▲ M II ▲ M IIS M IIT M IIA M UR M IIT M II ^ M II ^ 

M II ^ M II ^ M II ^ M II" 

110 H < 1 ) = 20 i H < 2 ) = 20 i H < 3 ) =20 

i H < 4 ) = 20 i LE = 1 
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120 FOR 1=0 TO 3 - POKE V+I*2,H(I+1> 

* POKE V + I * 2,90 + < I * 35 ) * NEXT 

125 IF LE = 1 THEN LE = O * GOTO 130 

126 IF LE = 0 THEN LE * 1 

130 FOR I = O TO 3 

131 POKE 2040 + 1,13 + LE « IF LE = O 

THEN POKE 54273,2 * POKE 54272,37 

132 IF RND C 1 ) < - 45 OR ( OD ( I + 1 ) < 5 

AND RND ( 1 ) < -4 ) THEN H ( I + 1 ) 

= H ( I + 1 ) + INT ( RND < 1 ) * 5 ) 

* GOTO 135 

133 H(I+1)=H(I+1)+1 

135 POKE V+I*2 v H(I+l>* POKE V + 1 + I 

* 2,90 + ( I * 35 ) * IF LE = O 
THEN POKE 54273,0 * POKE 54272,0 

136 IF H ( I + 1 ) > 240 THEN 200 
140 NEXT * GOTO 125 

200 FOR Z = 1 TO 500 * NEXT 

205 POKE 53281,0 * POKE 53280,0 * PRINT " Q ^ " 

* FOR Z = O TO 3 - POKE V + Z * 2,0 * NEXT 
- HN =1+1 

206 GOSUB 5000 

210 PRINT M ^ SWINS. *' 

220 PRINT " ffl YOU ^ BET ^ ON A " i * HN = H * GOSUB 5000 
230 IF I + 1 < > H THEN 300 
240 PRINT M ^ TOO! " 

245 h=M+OD<I+l)*B 

250 PRINT " HSO ^YOU’VE ^ WON ^ £ M 5 OD ( I + 1 ) * B 
260 GOTO 30 

300 PRINT * PRINT " HYOU’VE ^ LOST AJ t"jB 
310 PRINT " LSQ filBAD A LUCK ! - 
315 M = M - B 

320 IF H < 1 THEN FOR I = 1 TO 3000 * NEXT * GOTO lO 
350 PRINT M D0 ^ YOU ^ WANT ^ TO ^ PLAY ^ AGAIN?" 

360 GET A* * IF A« = "Y" THEN 10 
370 IF A* < > "N" THEN 360 
380 PRINT " 13 Bfl HI BYE ^ BYE! " 

390 END 

500 PRINT " Hi YOU’RE ^ BROKE ! " 

505 N = 100 
510 GOTO 350 

5000 IF HN = 1 THEN PRINT "HIRED ^ DEVIL"; 

5010 IF HN = 2 THEN PRINT " KTHE ^ BLUE ^ MAX"; 

5020 IF HN = 3 THEN PRINT " »THE A PINK A LADY" 5 

5030 IF HN = 4 THEN PRINT " HGREEN ^GOBLIN"; 

5040 RETURN 

9000 DATA 0,14,0,0,14,20,0,12,28,0,28,26,0,31, 

63,O,28,255,O,28,247,0,127,227,3 
9010 DATA 255,224,7,255,224,15,255,224,25,255,224, 

25.255.224.57.216.112.49.222 

9020 DATA 112,97,192,48,97,192,48,225,128,96,3, 
128,96,3,0,224,7,0,224,99 

9030 DATA 0,14,0,0,14,20,0,12,28,0,28,26,0,31,63,0, 

28,255,0,28,247,O,127,227,3 
9040 DATA 255,224,7,255,224,15,255,224,25,255,224,25, 

255.224.57.216.112.49.222 
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9050 DATA 112,97,192,48,97,192,48,48.192,96,3, 
128,192,3,1,128,0,0,0 


CHEXSUM 

0=0 
1=2358 
2=220 -1 
3=3798 
4=2787 
5=3433 
9=527 
18=2413 
1 1=2632 
80=1824 
21=782 
25=1373 
26=4167 
38=2107 
32=2309 
34=2218 
36=2216 
48=1462 
50=3096 
68=1390 
70=3450 
30=2588 
99=1158 
100=4866 
101=131 
102=2647 
103=2717 
105=7151 
106=5027 
1 10=2852 
120=3816 
125=1734 
126=1082 
138=655 
131=3102 
132=5852 
133=1348 
135=5250 


136=1338 

140=7 IP 

280=978 
205=4 R 10 
286=352 
218=652 
228=2077 
230=1234 

040=545 

245=138 t 

250=2383 

266=472 

308=1643 

310=906 

315=580 

328=2266 

358=2388 

360=1243 

370=1125 

388=852 

338=129 

500=1050 

585=4 1 5 
518=^26 
5808=1754 
5816=1986 
5828=2227 
5838=2839 
5040=143 
3088=4274 
8810=4325 
9028=3597 
8830=4274 
3840=4325 
8858=3233 

TOTAL= 161253 
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Luna Landa 



This is one for all you budding young astronauts. The surface of the moon 
is looming closer, and you must control the horizontal and vertical 
velocities of your module to achieve a feather-light landing. 

Keep an eye on your fuel gauge at the bottom of the screen, don’t run out 
of fuel. The more difficult the landing site the more points you get for a 
successful mission, each perfect landing increases the difficulty of the 
next. Be careful not to damage your module by landing too hard. 

Controls are: 

‘C’ move right 
‘Z’ move left 
‘F3’ V4 power thrust 
‘F5’ V% power thrust 
‘F7’ full power thrust 
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PROGRAM STRUCTURE 


LINE 


INITIALIZATION 

(SET GRAVITY, VELOCITIES (HORIZONTAL 
AND VERTICAL) LINE 35) 

1—35 

INITIALIZE LUNAR MODULE 

44 

AFFECT MODULE WITH GRAVITY 

50 — 80 

CONTINUE HORIZONTAL & VERTICAL MOTION 
INPUT KEY 

85 

CHANGE HORIZONTAL VELOCITY IF C OR Z 

87 

CHANGE VERTICAL VERLOCITY IF THRUST 

88 — 92 

CHECK LANDING ON PAD 1 Y? THEN 1000 

100 

CHECK LANDING ON PAD 2 Y? THEN 1000 

105 

CHECK LANDING ON PAD 3 Y? THEN 1000 

110 

CHECK FOR CRASH 

115 

IF CRASHED, EXPLODE 

120— 130 

ASK FOR NEW GAME 

135 

YES?THEN 160 

140 

END 

150 

REDRAW LANDSCAPE, REINITIALIZE 
VELOCITIES, POSITIONS, ETC 

GO TO MAIN BODY 

160— 180 

LANDED SAFELY? N?THEN 120 

GIVE SCORE FOR SAFE LANDING 

INCREASE DIFFICULTY FOR NEXT TIME 

1000— 1010 

DATA 

1000—10080 
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VARIABLES 

V = ADDRESS OF VIDEO CHIP 
G = GRAVITY 
VV = VERTICAL VELOCITY 
HV = HORIZONTAL VELOCITY 
NO = NO. OF SAFE LANDINGS 
XI = X POSITION 
Y1 = Y POSITION 
K = KEYBOARD PORT 
K = KEY PRESSED 
FU = FUEL 




SPRITE 

FUEL 

MARKER 
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LUNA LANDA 


1 POKE 55,255 * POKE 56,47 * V = 53248 

* FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

5 FOR I = O TO 103 * READ A * POKE 12 * 1024 + I, A 

* NEXT 

lO FOR I = 832 TO 894 * READ A * POKE I, A * NEXT 

* POKE 2040,13 * POKE V + 24,28 

* POKE V + 39, 15 s NO = 1 

15 POKE V + 33,0 * POKE V + 32,0 * FU = lOOO 
; SC = O 

20 PRINT " UaMKlMKElKM EJGG LfiBC KJD fe]H LfS ||J K)H 
tel lUtei III tel IIKtel II HE tel II II USA tel II II 
HE tel II HE tel HD KID telD telDLLLK □ III ** 5 
25 PRINT " □ || J O ||H □ HE LJE USA LIE EJK □ III OK O III 
QLLLK a III a HD a ll HD o HS>A OE OK o 
III OF telDGG LfJH tel HJ te)H tel IIJ“ ; 

30 PRINT "Kjllltel ||K tel IIH tel IIJ telH tel IIJ tel HE tel II HE 
tel IIH tel IIJ teJD [SOBCLLLLEBC telBC telD" ; 

35 G = .040875 *VV=0*HV=.5* POKE V, 2 
i POKE V + 1,29 i POKE V + 16,0 
i POKE V + 21,1 * KB = 197 * X = 2 
40 FOR I = 0 TO 190 * READ A * POKE 13 * 1024 + I, A 

* NEXT I 

42 FOR I = 896 TO 958 * POKE 1,0 

* IF INT <(I + 1)/3)*3=I 
THEN POKE 1,128 

43 NEXT 

44 POKE V + 3,232 * POKE V + 21, PEEK ( V + 21 ) 

OR 2 - POKE 2041,14 * POKE V + 40,2 

s A = PEEK ( V + 31 ) 

45 PRINT " fc=3te!teJte!teJteJtelte]teJteltelttlteJte]teJteJteJtelteJteJ 

[SltelteltelHHHHHHBHHH HLLLLLLLLLLLLLL " ; 
50 W = W + G * POKE V + 2,FU / 10+96 

* IF W > 4 THEN VV = 4 

55 A = PEEK < V + 1 ) * A = A + W * IF A > 230 

THEN A = 230 

57 IF A < 29 THEN A = 29 

60 POKE V+l,A- B= PEEK ( V + 16 ) AND 1 

65 A = X + HV * IF A > 255 AND B = O 

THEN POKE V + 16, PEEK ( V + 16 ) OR 1 * B = 1 
: A = O 

70 IF A < O AND B THEN POKE V + 16, PEEK ( V + 16 ) 

AND 254 i B = O * A = 255 
75 IF A < O THEN POKE V + 16, PEEK ( V + 16 ) OR 1 

* B * 1 * A = 87 

80 IF A > 87 AND B THEN POKE V + 16, PEEK ( V + 16 ) 

AND 254 i B = O * A = O 

85 POKE V,A * X = A * K = PEEK ( KB ) * IF FU < 1 

THEN K = O 

87 HV = HV + ( K = 20 ) * ( HV < 4 ) * . 1 - 

( K = 12 ) * ( HV > — 4 ) $.1 * FU = FU + 

( K = 20 > + < K = 12 > 

88 IF ( FU < 3 AND K = 6 ) OR ( FU < 4 AND K = 3 ) 
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THEN K = O 


90 

vv = vv + 

+ ( K = 

( 

3 

K 

) 

* 

5 ) 
.25 

* .0625 + ( K 

- 

6 ) * .125 

92 

FU = FU + 

* 5 

( 

K 

= 

5 ) 

*0 

II 

¥ 

+ 

3 

+ < K = 3 ) 

95 

Y1 = PEEK 

( 

V 

+ 

1 > 

* XI = PEEK ( 

V 

) 


* B = PEEK < V + 16 ) AND 1 

100 IF Y1 = 228 AND XI > = 63 AND XI < = 67 

THEN LA = 1 J GOTO lOOO 
105 IF Y1 = 132 AND XI > = 143 AND XI < = 147 
THEN LA = 2 * GOTO lOOO 

llO IF Y1 = 204 AND XI > = 7 AND XI < = 13 AND B 
THEN LA = 3 J GOTO lOOO 

115 A = PEEK ( V + 31 ) AND 1 * IF A < > 1 THEN 50 

120 FOR I = 208 TO 210.9 STEP .025 * POKE 2040,1 

* NEXT * FOR I = 210.5 TO 209 STEP - .05 
125 POKE 2040,1 * NEXT * POKE V + 21,0 

130 FOR I = 1 TO 5000 * NEXT * PRINT " Q" 

* POKE V + 21,0 * POKE V + 24,20 

* PRINT M M M m filYOU ^ CRASHED* " 

135 PRINT " KJ S5jSCORE“ ; SC 

s PRINT *' [ffl KJ B3 HANOTHER ^ GAME?" 

140 GET A* * IF A* = "Y" THEN 160 
145 IF A* < > “N** THEN 140 
150 END 

160 FU = 1000 * SC = O * POKE 2040,13 

* POKE V + 24,28 

i65 print “aiaa&araraisiKfirara kjgg mbc kid mh kj ii j mh 
no iura an m hk no n he us 11 ■■ ii»Am ■■ ii 
he no ■■ iie no bid md hjd mdlllk n 

170 PRINT M □ ||J □ ||H □ ||E CUE Q3A CJE OK □ IH OK d III 
□ LLLK □IIIOIIDQ II HD □ II3A QE QK CJ 
HI CDF fflDGG fflH [fO IIJ ttflH t!0 IIJ" ; 

175 PRINT " ttl III [fl ||K Iffl ||H [SO IIJ [£]H [SO IIJ ISO IIE W II HE 
[fi] IIH M ||J [g)D fflBCLLLLEBC K3BC [*JD M ; 

180 W = O * HV = .5 i POKE V,2 * POKE V + 1,29 

* POKE V + 16,0 * POKE V + 21,1 * X=2 

* GOTO 44 

1000 IF W > 5 OR ABS ( HV ) > .4 THEN 120 

1005 SC = SC + ( 4 - LA ) * 50 i FOR I = 1 TO 5000 

* NEXT * NO = NO + 1 

1010 POKE V,2 * POKE V + 1,29 * POKE V + 16,0 

* POKE V + 21,1 * KB = 197 * X = 2 

* HV = NO * .5 ; GOTO 44 

lOOOO DATA 0,0,0,5,10,16,96,128,1,5,8,144,96,0,0,0, 
128,64,64,80,105,6,0,0 

10005 DATA 0,0,0,0,132,74,49,1,128,64,48,8,4,4,6,1, 
1,1,2,10,20,16,32,192 

10010 DATA 0,0,8,20,36,66,65,129,0,0,0,0,4,42,209, 

129,128,64,64,32,16,16,8,8 
10015 DATA 1,1,2,4,2,2,4,8,4,2,2,4,2,2,1,1,8,16, 
32,32,32,64,64,128 
10020 DATA 0,0,0,0,0,0,0,255 

10025 DATA O, O, O, O, O, O, O, O, 0, O, O, O, 0, O, O, O, O, O, O, 

8,0,1,255,0,1,141,0,3,167,0,0 
10030 DATA 132,0,0,239,0,0,169,0,0,255,0,7,131, 
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192,lO,130,160, 10, 130,160,31 
10035 DATA 255,240,16,56,16,32,124,8,112,0,28 
10050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 8 , 0,0 
10055 DATA 20,0,34,0,0,20,0,0,8,0,0,8,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,99 

10060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,8,0,0,54,0,0,193 
10065 DATA 128,1,0,64,6,0,48,1,0,64,0,193,128,0,54, 
0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10070 DATA 0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0, 0, O, O, O, O, O, O, 28, O, O 
10075 DATA 227,128,15,0,120,112,0,7,15,0,120,0,227, 
128,0,28,0,0,0,0,0,0,0,0,0,0 
10080 DATA 0,0,0,0,0,0 

CHEXSUM 


1=3492 

136=3743 

i r?i i7) — rx— a 1 0 1 

I «•_' C • I *— ~ A 1— A 


115=2121 

10875 ‘4255 

10=4633 

120=3765 

1 ^ O ? — C O O 

A _J r -’ •— ~ W —* I— 

15=3443 

125=1399 


20=7077 

130=4342 

■^DTFiL = 2 1531 

25=9367 

135=2795 


30=4607 

140=1306 


35=5451 

145=1125 


40=3530 

150=129 


42=3733 

160=2430 


43=131 

165=7077 


44=4772 

170=3367 


45=2993 

175=4607 


50=3406 

130=4562 


55=2875 

1000=1734 


57=1042 

1005=3464 


60=1840 

1010=5069 


65=4349 

10000=3603 


70=3395 

10005=3566 


75=2942 

10010=3337 


30=3369 

1Q0 15=3153 


35=2696 

10020=1004 


87=6137 

10025=4116 


88=2856 

10030=3833 


90=3582 

18035=2013 


92=2820 

10050=4096 


35=3021 

18855=3673 


100=3547 

10060=3393 


105=3666 

18865=4387 
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Simon 



Simon plays a series of tones incrementing the number each time. You 
must repeat the sequence. The screen displays the numbers 1 — 6 and 
one of these will light up to correspond with the tones played. Each time 
Simon repeats a sequence he adds a note and plays the ‘tune’ faster. 
You win by repeating his tune until it is eight notes long. Use the keys 1 — 
6 to reproduce the tones and lights. 


Remember, this game tests your speed as well as your memory and you 
only have a limited amount of time to react! 


SPRITE 

SIMON'S 

HEAD 
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PROGRAM STRUCTURE 

INITIALIZATION 

DRAW SIMON, CAPTION: CALL ‘DRAW LIGHTS’ 

CALL INTRO 1 DIMENSION NOTE ARRAY 

PLAY NOTE AND ENTER INTO ARRAY: 

CALL ‘LIGHT KEY’ 

CLEAR NOTE: CALL LIGHT KEY’ 

PROMPT FOR KEY INPUT 

GET KEY (IF ANY) FROM QUEUE AT END OF 
DELAY 

WRONG KEY, CALL ‘END’ 

COMPARE WITH ARRAY, IF WRONG CALL ‘END’ 

PRINT CONGRATULATIONS AND GET KEY 
TO RESTART 

PRINT LIGHTS ONTO SCREEN 
CHANGE COLOUR OF SELECTED LIGHT 
TURN OFF SOUNDS AND GET KEY TO RESTART 
PLACE CAPTIONS IN BUBBLE AND DELAY 
DELAY AND CLEAR CAPTION 
DATA FOR SIMON 


LINES 

0 — 3 
4 — 9 
10 

20 — 25 

30 — 35 
40 

45 — 50 

55 

56 — 80 
90 — 99 

100 — 190 
200 — 270 
500 — 560 
5000 — 5140 
6000 — 6030 
9000—9050 


VARIABLES 

V = POINTER FOR SPRITE HANDLING 
N(X) = NOTE ARRAY 

I = POINTER TO LAST NOTE PLAYED (I = -1, INTRO CAPTIONS IN 
PROGRESS) 

A = PLAYER’S INPUT 
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SIMON 


O PRINT M Q M t POKE 53281,1 - POKE 53280,4 * 

POKE 54296,15 * POKE 54276,0 * POKE 54276,17 

1 POKE 54277,0 * POKE 54278,240 * POKE 54273,0 * 

V = 53248 * POKE V + 21,3 * POKE 2040,13 

2 POKE 2041,14 * POKE V + 39,0 * POKE V + 40,5 * 

POKE V + 28,2 * POKE V + 38,0 * 

FOR I = O TO 126 * READ Q 

3 POKE 832 + I,Q * NEXT * POKE V,140 - 

POKE V + 2,140 = POKE V + 1,61 * POKE V + 3,82 

4 PRINT " 6=3 El ^ □□□□□□□□□•• 

5 PRINT " L.J ^ ^ ^ ^ ^ ^ ^ ^ A 

6 PRINT " 11 

7 PRINT " £1 * * * ^ *. * ^ * * * l.j" 

8 PRINT “ ^ — r-: nnnn^n «—• —" 

9 PRINT 

A ^ •• * GOSUB lOO 
10 GOSUB 5000 = DIM N < 8 ) 

20 FOR 1=1 TO 8 = N ( I ) = 

INT ( RND < 1 > * 6 > + 1 * FOR J = 1 TO I = 
POKE 54276,17 

25 POKE 54273, N < J ) t 20 * PRINT 11 H" * 

GOSUB 200 

30 FOR X = 1 TO 400 —It 30 * NEXT i POKE 54273,0 
35 PRINT " k. M * GOSUB 200 

40 FOR X = 1 TO 200 -It 20 - NEXT X,J * PRINT 


" 6=3 El fifl B H ^ REPEAT El || || || || || THE El |fl || 
NOTES!" 

45 FOR J = 1 TO I = POKE 54276,0 = POKE 54276,33 * 
POKE 198,0 * FOR X = 1 TO 250 - I t 20 


50 GET A* = IF VAL ( A* ) >0 AND VAL ( A* ) < 7 

THEN 55 

51 NEXT X * GOTO 500 

55 GOSUB 6000 

56 IF VAL < A* > < > N < J > THEN 500 

60 POKE 54273, VAL ( A* ) t 20 * PRINT “ H" - 
GOSUB 200 

62 FOR X = 1 TO 500 —It 50 * NEXT * POKE 54273,0 
= PRINT " “ * GOSUB 200 

80 FOR X = 1 TO 1500 - I » 80 * NEXT J = 

FOR X = 1 TO 600 = NEXT X,I 

90 GOSUB 6000 * PRINT " 6=3 El E3 B H ^ YOU El II II II 

^ WIN! !" 

91 GOSUB 6000 ; PRINT M 6=3 El EJ B H ^ PLAY El II II II 

|| AGAIN? 11 

92 GET A* * IF A* = "Y" THEN 20 
95 IF A* < > "N" THEN GOTO 92 

98 GOSUB 6000 = PRINT " 6S El El El B ^ ta_BYE!" 

99 END 

lOO PRINT "fcSElEJElElElElElElElHHHian 

^ ^ ^BBBBBBBBBBBBBB^ - ^ H n 
1 lO PRINT “ B B B L£l ▲ ^ 1 ^ ▲ BBBBBBBBBB 
B B ▲ ^ 4 ^ A •* 

120 PRINT 11 B B B B iSi ▲ ^ . BRBBBBB 
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HBHHBHHBLSi . . . Bn" 

130 PRINT a a a B B B B B B B 

BBBBBBB a . . 3" 

140 PRINT 11 B B B l£l . a 2 a a BBBBBBBBBB 
B B ▲ a 5 a a " 

150 PRINT " B B B B 13 a A aBBBBBBBBB 

B B B B B B 13 a . . ■B" 

160 PRINT "KmBBBISiB . a . BBBBBBBB 
B B B B B B a . . B" 

170 PRINT 11 B B B l£j a a 3 ^ a BBBBBBBBB 

B B B a. a6 a a" 

180 PRINT " B B B B 13 a a a BBBBBBBBBB 
BBBBBISi a a a "D 11 
190 RETURN 

200 PRINT "^[fiKlKIteJteJraiSteltiaBBB 11 ; * 

IF N ( J ) >3 THEN PRINT 

"BBBBBBBBBBBBBBBBB" ; 

210 IF N ( J ) = 1 THEN PRINT " l£j B A a a B El II 

ii ii ii ii a a i a a m ii ii ii ii ii ■ n id 

a a ^ m n •• 

220 IF N ( J ) = 2 THEN PRINT " ffl H EJ (ffl ffl l£j 

B A A A B El II II II II II A A 2 A A El II II II II 

IliBIZl. A A S B " 

230 IF N < J ) = 3 THEN PRINT " E1E3E1E1E1E1E1E1 

El El Id B a A A B E) II II II II II A a3a a El 

ii ii ii ii ii ■ b id a a a m B" 

240 IF N ( J ) = 4 THEN PRINT " [d B a a a B El II 

II II II II A A 4 a A El II II II II II ■ B ^ 

A A A M B " 

250 IF N ( J ) = 5 THEN PRINT " El El El El El 13 

B A A A B El II II II II II A A 5 A A El II II II II 

ii ! a id a a a m e - 

260 IF N ( J ) = 6 THEN PRINT “E1EJE1EJE1E1EJE? 

El El Id B A A A B El II II II II II A A 6 A A El II 

IIII ■ B Id A A A m H “ 

270 RETURN 

500 POKE 54276,0 - POKE 54276,33 

510 FOR I = 20 TO 1 STEP - ,2 * POKE 54273,1 * NEXT 
520 POKE 54273,0 
525 GOSUB 6000 

530 PRINT " fc=2 El El B El BAD a LUCK- " 

535 PRINT " BPLAY" 

540 PRINT M BAGAIN?" 

545 GET A* * IF A$ = "Y" THEN POKE 54276,0 * 

POKE 54276,17 * GOSUB 6000 * GOTO 20 
550 IF A* < > "N" THEN GOTO 545 

555 GOSUB 6000 ± PRINT " H El El El H H tan BYE! El El El 
El El El" 


560 

END 



5000 

I = - 

1 * 

PRINT " t=3 El El B H a HI 

5005 

PRINT 

" B 

a CALLED" 

5010 

PRINT 

11 B 

a SIMON" 

5020 

GOSUB 

6000 

5025 

PRINT 

11 Q El E! B Q a WANT a TO" 

5030 

PRINT 

11 B 

a PLAY a MY" 

5035 

PRINT 

N B 

a a GAME?" 
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5036 

5037 

5038 
5040 
5045 
5050 
5055 
5060 
5065 
5070 
5075 
5080 
5085 
5090 
5095 
5100 
5105 
5110 
5115 
5120 
5125 
5130 
5135 
5140 
5500 
5502 
5505 
5510 
6000 

6005 

6010 

6020 

6025 

6030 

9000 

9010 

9020 

9030 

9040 

9050 


GET A* * IF A* < > "N** AND A* < > "Y” THEN 5036 
IF A* = M N“ THEN 5500 
IF A* = "Y" THEN GOSUB 6000 
PRINT " H ffl [fi] H ta.REPEAT" 

PRINT "H ^ ^ A THE" 

PRINT " HSEQUENCE" 

GOSUB 6000 

PRINT " 0 El El B BBOF ^ LIGHTS*' 

PRINT " B ^ ^ ^ AND ^ ** 

PRINT ** B ^ SOUNDS- ** 

GOSUB 6000 

PRINT ** 0 El El BTHERE’S" 

PRINT ** SHORE ^ EACH- 
PRINT * H A . TIME. " 

GOSUB 6000 

PRINT ** 0 HI E) B 0YOU ^ MUST" 

PRINT " B ^ BE ^ VERY** 

PRINT "B ^ QUICK!" 

GOSUB 6000 

PRINT " 63 E3 El B Ei ▲ ^ STAND" 

PRINT " B ▲ ▲ ▲ BY" 

GOSUB 6000 
GOSUB 6000 
RETURN 
GOSUB 6000 

PRINT ” 0 El El B KBYE ^ BYE" 

PRINT " H G ^ THEN! ! El El El El El El " 

END 

IF I = - 1 THEN FOR Z = 1 TO 2000 * NEXT * 

POKE 54276,0 * POKE 54276,33 * POKE 54273,50 

PRINT ** eSEJEJB^^^^^^^^^" 

PRINT " 

PRINT " 

IF I = - 1 THEN POKE 54273,0 
RETURN 

DATA 0,0,0,0,255,128,1,255,192,3,255 
, 224,2,O,32,2,O,32,2,54,32,2,99, 32 
DATA 2,99,32, 14,193,1B4,10,8,40, 10,8 
,40,8,24,8,8,193,136,8,99,8,8,28,8 
DATA 4,0,16,4,0,16,7,128,240 
,5,255,208,2,231,32,99 
DATA 2,255,128,10,190,160,42,255, 168 
, 170,255,170,174,235,186,174,235,186 
DATA 174,235,186,174,235,186,46, 170, 184 
,43,170,232,10,235,160,10,235, 160 
DATA 10,190,160,10,195,160,3,60, 192,3 
,255,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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CHEXSUM 


8=3638 

218=4534 

=■ * 0=; =i qo0 

1=3313 

228=4847 

5110=777 

3=4733 

230=4858 

1 < =; = p : *=: i 

3=3663 

248=4528 

5123=858 

4 = 13S6 

250=4348 

5 125=533 

5=1 157 

268=4954 

5 130 = 351 

6 = 1888 

278=143 

5 135=351 

7=1813 

583=1213 

5143=143 

8=3145 

518=2023 

5533=351 

3=6338 

520=528 

5502=832 

18=763 

525=351 

5585=837 

38=3335 

538=1013 

55 10=128 

35=1737 

535=537 

6803=3867 

33=3133 

548=691 

6005=716 

35=758 

545=3405 

BO 10=625 

40=5486 

558=1586 

6823=625 

45=3987 

555=1443 

C; ;7; <= - 

50=3375 

568=133 

6 830=143 

51=818 

5000=1417 

9300 =3927 

55=351 

5885=743 

93 1 8 = 3382 

56=1493 

5019=639 

3088=2803 

80=1313 

5020=351 

3038=4211 

63=3997 

5025=359 

3848 =4283 

80=3843 

5033=334 

3858=4431 

30=3071 

5335=633 


3 1 =2334 

5036=2388 

TOT£L= 187570 

32=1245 

5337=1081 


85=1445 

5833=1153 


93=1321 

5040=332 


33=123 

5845=607 

SPRITE 

188=3094 

5850=384 

SIMON’S 

118=1336 

5055=35 1 

BODY 


I£0= 2145 

130=1873 

140=1839 

158=8145 

166=1878 

178=1833 

180=3145 

138=143 

280=8370 


5060=1953 
5065=648 
5078=846 
5875=35 1 
5838=373 
5885=331 
5338=633 
5835=351 
5188=1154 
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Racer 



This is a Grand Prix simulation with a different twist. 

You have anticipated your win and celebrated before the race, as a result 
you are drunk and end up driving the race in the wrong direction. 
Instructions are contained within the program which allows you to select 
different levels of speed and skill. 

Watch out for oil slicks! 
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PROGRAM STURCTURE 

LINES 

INITIALIZE SPRITE 

0 — 9 

PRINT LINE OF TRACK ETC 

10—54 

GET KEY PRESSED 

100 

MOVE CARS 

110— 130 

SOMETHING IN ROAD? 

140 

CRASH ELSE NEXT LINE 

200 — 240 

CRASH SPIN OUT 

500 — 580 

THREE CRASHES? 

1000 

END, ELSE START AGAIN 

1000—1050 

DATA 

9000 — 9120 


VARIABLES 

SP = SPEED 

LA = NO. OF LAPS 

OS = OBSTACLE (OTHER) 

C = OBSTACLE (CAR) 

SK = SKILL LEVEL 
P = POSITION OF OBSTACLE 
L = NO. OF CRASHES 
X = YOUR POSITION 
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RACER 


0 GOSUB 2000 * POKE 55,255 * POKE 56,48 * 

V = 53248 

1 POKE 53281,5 * POKE 53280,7 * 

POKE V + 22, PEEK ( V + 22 ) OR 16 * 

PRINT "a" 

2 POKE 53265,151 * FOR 1=0 TO 111* READ A * 

POKE 12 * 1024 + I,A * NEXT * POKE V + 24,28 

3 POKE 54276,0 * POKE 54296,4 * POKE 54277,132 * 

POKE 54278,240 * POKE 54272,18 * POKE 54273,1 

4 POKE 54276,129 

5 L = O * LA = O * X = 150 * POKE V + 34,4 * 

POKE V + 35,7 

6 FOR 1=0 TO 62 * READ A * POKE 832 + I, A * 

NEXT * POKE 2040,13 * POKE V + 39,7 * 

POKE V + 37,6 

7 POKE V + 38,2 * POKE V + 28,1 * POKE V, X * 

POKE V + 1,100 * POKE V + 21,1 

8 FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

9 PRINT n 6=3 -; * FOR 1 = 1 TO 25 * PRINT 

H H HI" * NEXT * A = PEEK < V + 31 ) 

10 LA = LA + .02 * PRINT " 

HNHBNaiBBNHWHBBHHHHI' 1 

11 IF SP > 1 THEN FOR I = 1 TO SP » 20 : NEXT 

12 PRINT " 

15] l*D H K3 K 0 H H H H H H H W N ‘ i 

13 IF OS > O THEN 21 

14 IF C > O THEN 51 

15 IF INT < RND <1)*10+1)<7+SK THEN lOO 

16 IF RND ( 1 ) < -95 THEN 50 

20 OS = 1 * P = INT ( RND ( 1 ) * 11 + 1 ) 

21 IF OS = 1 THEN PRINT SPC( P ) 5"JK"5 * OS = 2 * 

GOTO 25 

22 IF OS = 2 THEN PRINT SPC ( P ) ; ,, LM" 5 * OS = 0 

25 IF C = O THEN lOO 

50 C = 1 * P = INT ( RND < 1 > * 10 + 1 > 

51 IF C = 1 THEN PRINT SPC ( P ) 5"SAB" 5 * C = 2 * 

GOTO 100 

52 IF C = 2 THEN PRINT SPC( P ) ;"CDE"j * C = 3 * 

GOTO lOO 

54 IF C = 3 THEN PRINT SPC7< P ) ; "FGH" 5 * C = O 

100 PE = PEEK < 197 ) 

HO IF PE = 12 THEN X = X - 4 

120 IF PE = 36 THEN X = X + 4 

130 IF PE = 12 OR PE = 36 THEN POKE V,X * 

POKE V + 1,100 

140 IF PEEK ( V + 31 ) = 1 THEN 500 

200 IF LA < 12 - ( SK * 2 ) THEN GOTO 10 

205 POKE V,0 * POKE 54273,0 * POKE 54272,0 

210 POKE V + 24,20 * PRINT '* Q SWELL A DONE! ! ! ! " 

220 PRINT " k- El HI 7h YOU'VE A COMPLETED ^ THE ^ GAME* " 
230 PRINT " KJ taLCRASHES* " 5 L 
240 GOTO 1020 
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1 


500 D = - 1 i IF RND ( 1 ) < .6 THEN D = 

503 POKE 54272,137 * POKE 54273,43 
505 FOR I = 100 TO 200 
508 POKE 53280,I / lO 
515 X = X + < D * 4 ) 

520 IF X < 118 THEN D = 1 

525 IF X > 185 THEN D = - 1 

530 POKE V,X * POKE V + 1,1 

540 NEXT 

550 X = 150 * POKE V,X * POKE V + 1,100 
560 L = L + 1 
570 IF L = 3 THEN 1000 
575 POKE V + 31,0 * PRINT " □" * OS = O * C = O - 
POKE 53280,7 

578 POKE 54272,18 * POKE 54273,1 
580 GOTO 9 

lOOO POKE V,0 * POKE V + 24,20 * 

PRINT M Q ta_KABOOM! MM!" 

1002 POKE 54272,43 * POKE 54273,137 

1005 POKE 54272,0 * POKE 54273,0 * POKE 54278,0 

1006 POKE 54296,15 * POKE 54277,236 * POKE 54278,236 

* POKE 54276,129 

1007 POKE 54273,7 * POKE 54272,53 

1010 PRINT " K El El YOU A CRASHED ^ THREE ^ TIMES! M 
1015 FOR I = 1 TO 700 * NEXT * POKE 54278,0 * 

POKE 54272,0 * POKE 54273,0 
1020 PRINT " EJ El El ZD WANT ^ ANOTHER A GO?" 

1030 GET A* * IF A* = "Y" THEN RUN 
1040 IF A* < > "N" THEN 1030 
1050 END 

2000 POKE 53281,0 

2005 PRINT H Q a ROAD ^ RACER! ! " 

2010 PRINT " E3 k. A ^ GAME ^ OF ^ SKILL- ^ DODGE 

^ THE ^ CARS ^ AND A A ^ ^ ^ COMPLETE A FIFTEEN 
^ LAPS." 

2020 PRINT " El 13Y0U A HAVE ^ BEEN ^ DRINKING ^ TOO ^ MUCH 
^ BEFORE ^ A THE ^ RACE A AND A YOU ^ ARE" 

2030 PRINT "DRIVING A THE A WRONG A WAY' " 

2040 PRINT " El IS 13AND ^ IF ^ THATS ^ NOT ^ ENOUGH ^ YOU 
^ CAN'T ^ STOP!" 

2050 PRINT " E3CONTROLS A ARE* " 

2060 PRINT " El SDZ- BaLEFT" 

2070 PRINT " El ZDM- B3RIGHT" 

2080 PRINT " El DON' T ^ CRASH ^ INTO ^ THE ^ SIDE ^ OF ^ THE 
^ ROAD!" 

2090 PRINT " El El »PRESS ^ A ^ KEY" 

2100 GET A* * IF A$ = "" THEN 2100 
2105 PRINT " a a>>>>>>>>>>>>>>>> 

E3 OPT IONS 13I<<<<<<< <<<<<<<<<<" 

2110 PRINT " El El SPEED? < 1 ^ FAST ^ - ^5 ^ SLOW) " 

2120 GET A* 

2130 IF VAL ( A$ ) < 1 OR VAL ( AS ) >5 THEN 2120 

2140 SP = VAL ( A* ) 

2150 PRINT " El KSKILL A LEVEL? < 1 A HARD A A 3 A EASY) " 

2160 GET A* 

2170 IF VAL ( A» ) < 1 OR VAL ( A* ) >3 THEN 2160 
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1 THEN SK 


1-5 


2180 SK = VAL ( A* ) * IF SK = 

2190 PRINT " [fi] [*} ffiGOOD A LUCK f " 

2200 PRINT "MM M PRESS A A A KEY" 

2210 GET A* 

2220 IF A* = "" THEN 2210 
2230 RETURN 
9000 DATA 0,0,4,7,15,7,4,0,48,48,252,255,255 
, 255,236,236,0,0,64,64,192,64,64, O 
9010 DATA 0,0,0,79,127,127,255,79,236,252,204 
, 3, 255,255,255,255,O,O,O,196,244,244 
9020 DATA 252,196,64,79,15,63,0,0,0,0,48 
,255,171,255,0,0,0,0 
9030 DATA 4,196,192,240,0,0,0,0 
9040 DATA 126,126,126,126,60,60,60,60 
9050 DATA ,3,15,14,14,58,234,58,0,0,192 
,192,192,192,252,172 

9060 DATA 14,14,58,58,236,243,3,0,171,188 
,240,192,176,176,176,192 
9100 DATA 63,255,240,15,171,192,79,255, 196 

,64,48,4,79,255,196,255,255,252,127,255 
9110 DATA 244,127,255,244,79,3,196,0,204 

,0,0,252,O,O,236,0,0,236,O,4,236,64,7 
9120 DATA 255,64,15,255,192,7,255,64,4 
,252,64,0,48,0,0,48,0,0,0,0 


CHEXSUM 


0=2043 
1=3375 
2=4062 
3=3353 
4=646 
5=2727 
6=4133 
7=3233 
3=1766 
3=3934 
10=3576 
11=2013 
12=1373 
13=814 
14=714 
15=2224 
16=1 1 13 
20=1375 
21=2606 
22=2083 
25=778 
50 = 1 774 


51=2515 
52=2521 
54=1873 
100=736 
1 10=1344 
120=1346 
130=2538 
140=1333 
200=1833 
205=1552 
210=2161 
220=2631 
23Q=1 167 
240=581 
508=1785 
503=1332 
585=833 
588=337 
515=323 
528= 1065 
525=1237 
538=1825 


548=131 
550=1626 
568=561 
570=841 
575=2545 
578=1212 
580=423 
1300=263 1 
1802=1323 
1085=1765 
1806=2325 
1087=1223 
1018=2275 
1015=2383 
1020=1713 
1830=1263 
10-40 = 1 135 
1859=123 
2000=530 
2885=1255 
2010=5938 
2020=5333 
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£630=1963 

£040=3555 

£050=1262 

2068=309 

£078=975 

£880=3344 

2890=1273 

2188=1276 

2185=3148 

£ 118=1331 

£128=267 

2138=2813 

£ 148=737 

2158=2431 

£168=267 

£178=2811 

£188=2845 

£198=1161 

£280=1273 

££ 18 = 267 

£228 =386 

£238=143 

3888=4332 

3610=4643 

3028=2915 

3838=1237 

3840=1656 

3858=2844 

9008=3224 

3108=4674 

3 1 18=4202 

3128=3173 


SPRITE 

PLAYER’S 

CAR 


TOTAL = 190694 
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Cosmic Bugs 



In this game creatures attempt to get from the top of the screen to the 
bottom where they turn into Crabs which close in on you. 

You defend yourself with a blaster that can fire nets or energy blasts. 
Nets trap the creatures and earn you double points, energy blasts kill 
them but sometimes only split them in which case you only get half 
points. If the screen turns yellow you must prepare to move your blaster 
as it moves up the screen to the top, once successfully at the top the 
game will resume in a new play area. 

The creatures are: 

Scorpions — These are red and worth 10 points for a kill. 

Spikers — These are green and worth 20 points, or 30 when they leave 
a spike behind. 

Cutters — These are blue and can free other creatures from nets. They 
are worth 40 points and cannot be netted themselves. 
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Crabs — These are other creatures who have reached the bottom. 

Your only method of killing them is to use the super-zapper, 
(space bar) this uses 25 points. The screen is grey when you 
have enough points. The first time it is used it kills all life, 
otherwise only crabs. 


Controls: 

‘Z’ blaster left 

‘C‘ blaster right 

’>’ fire nets 

“<’ fire energy blaster 

‘space bar’ super-zapper 
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PROGRAM STRUCTURE 
INITIALIZATION 

SET VARIABLES: SC, LI, P, NE, N, S, 

SZ, RE, BO, TO INITIAL VALUES 

PRINT “FUNNEL”GRAPHICS 

GET KEY PRESSED — LEFT OR RIGHT? 

MOVE LEFT OR RIGHT DEPENDING ON 
KEY PRESSED 

DETERMINE MOVEMENT/ACTIONS OF DIFFERENT 
ALIEN TYPES 

TEST FOR CRAB CAPTURED BLASTER 
ACTION FOR CUTTERS 
ACTION FOR SPIKERS 
ACTION FOR SCORPIONS 
CRABS LANDED!?! 

FIRING A NET, FIRING AN ENERGY BLAST 
TRAPPED OR HIT AN ALIEN? 

MOVE BLASTER UP TO NEW GAME 
SPACE BAR HIT TO DESTROY CRABS 
BLASTER DESTROYED 
PLAY AGAIN/HIGH SCORE 


LINES 

0 — 10 
20 

25 — 40 
50 

52 — 55 

80 

85 

100—112 
115—130 
135— 165 
170— 195 
601—615 
615 — 700 
707—725 
805 — 820 
1000 — 1020 
1030— 1055 
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VARIABLES 

SC = SCORE 
mi — Mirsu crnPF 

P(0 — 4) = CONTAINS POSITIONS OF ‘BUGS’ 
T(0 — 4) = CONTAINS TYPE OF ‘BUGS’ 

P = POSITION OF BLASTER 
PC = POSITION OF CRAB 
L = ‘MOVE LEFT’ 

R = ‘ MOVE RIGHT’ 

NE = ‘NET’ 

Tl$ = TIME 

PO = POSITION OF INDIVIDUAL BUG 

CA = ALIEN COUNT 

KB = KEYBOARD KEY 

K = CHARACTER KEY PRESSED 

PE = TEMPORARY 

CL = CLASS 

NE = NET POSITION 

I = VARIABLE 

J = VARIABLE 

J1 = VARIABLE 

V = VIDEO CHIP START ADDRESS 
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COSMIC BUGS 


1 POKE 55,255 * POKE 56,47 * V = 53248 * 

POKE V + 33,0 * POKE V + 32,0 * POKE 54296,15 
5 DIM P ( 4 ) ,T ( 4 ) * FOR 1=0 TO 4 * 

T ( I > = O t NEXT - CO = 54272 - KB = 197 * 

LS = 1024 * CA = O 

7 PC = 11* L = 12 : R = 20 * HI = O * 

FOR I = 12544 TO 12552 * POKE 1,0 - NEXT 
10 FOR I = 12288 TO 12415 * READ A * POKE I, A * 
NEXT * POKE V + 24,28 

20 SC = O - LI = 3 J P = 2004 t NE = 20 * N = - 1 
- S = - 1 - SZ = O - RE = O - BO = O 

25 PRINT " Q a ^ 5 * FOR 1 = 1 TO 24 - 

PRINT "ffllia"; * NEXT * PRINT ” H B3 II" - 
FOR I = 1 TO 23 - PRINT " [fi] ■■A" 5 
30 NEXT - POKE 56295,1 * POKE 2023,1 * PRINT 

H g[S](S]IS]HHHHH§]D IfiJD KJD KJD [fflD [g]D 


KDfflDfflDfflDfflDKlDEl || " ; 

35 PRINT “C K3 II IIC [ffl II IIC M || II || || || ||BBBBC 

m . DBBBB □ || || || || || ||D O 

II IID □ || ||D □ IIC ac uc OC UC □C" ; 

40 PRINT "□CnCDCncncnC"; * TI* = "OOOOOO" ± 


POKE 54278,32 - POKE 54277,0 * POKE 54276,0 
45 POKE 54276,17 

50 FOR 1=0 TO 4* K= PEEK ( KB ) * IF K <> L 
AND K <> R THEN 60 
52 POKE P,32 

55 P = P+ (K = L) — ( K = R ) - 

IF PEEK ( P ) < > 32 THEN P = P - ( K = L ) 

+ ( K = R ) 

60 POKE P + CO, 7 ^ POKE P,PC 

65 IF T ( I ) > O THEN 80 

70 IF RND ( 1 ) < -9 THEN 600 

72 P ( I ) = INT ( LS + RND ( 1 ) * 40 ) 

75 T ( I ) = INT ( RND ( 1 ) * 2 + 1 ) * 

IF RND ( 1 ) < CA / 6 THEN T ( I ) = 4 
80 ON T ( I ) GOTO 85,100,115,135,170,185,185,185 

85 CL = 2 - CH =12* 

D = INT ( RND < 1 > * 3 - 1 > + 40 * 

PO = P ( I ) + D i PE = PEEK < PO > - 

IF PE = PC THEN 1000 

86 IF PE = 5 THEN PE = 32 

87 IF PE = 7 THEN T < I ) = 6 * POKE P ( I ) ,32 i 

P ( I ) = PO J CA = CA + 1 - SC = SC + 20 - 

GOTO 185 

88 IF PE < > 32 AND RND ( 1 ) > .5 THEN 

D = INT ( RND < 1 ) * 3 - 1 ) * 

PO = P ( I ) + D J PE = PEEK ( PO ) - GOTO 87 

90 IF PE < > 32 THEN D = O * GOTO 500 
95 IF PO > 1983 THEN 130 
97 GOTO 500 
lOO CL = 5 * CH = 13- 

D = INT ( RND ( 1 ) t 3 - 1 ) + 40 J 
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PO = P ( I ) + D i PE = PEEK ( PO ) * 

IF PE = PC THEN lOOO 
Id IF PE = 5 THEN PE = 32 

102 IF PE = 7 THEN T < I ) = 7 * POKE P < I ) ,32 * 

CA = CA + 1 * P ( I ) = PO J SC = SC + 40 J 
GOTO 185 

103 IF PE < > 32 AND RND ( 1 ) > -5 THEN 

D = INT ( RND ( 1 ) * 3 - 1 ) * 

PO = P ( I ) + D J PE = PEEK < PO > ; 

GOTO 102 

105 IF PE < > 32 THEN D = O - GOTO 500 

110 IF PO > 1983 THEN 130 

111 IF RND ( 1 ) > .9 AND D > O THEN T ( I ) = 3 

112 GOTO 500 

115 POKE P ( I ) ,5 ~ CL = 5 * CH = 13 * D = 40 * 

PO = P ( I ) + D - PE = PEEK ( PO ) - 

IF PE = PC THEN lOOO 

116 IF PE = 7 THEN T < I ) = 8 * POKE P ( I ) ,32 * 

P ( I ) = PO J CA = CA + 1 t SC = SC + 60 i 

GOTO 185 

117 IF PE = 5 THEN PE = 32 

120 IF PE < > 32 THEN T < I ) = O - GOTO 600 

125 IF PO < 1984 THEN P<I>=P(I>+D* 

GOTO 505 

130 T < I ) = 5 * POKE P ( I ) ,32 J 

P<I)=P<I)+D* POKE P < I ) + CO, 10 
* POKE P ( I ) 9 15 • GOTO 600 

135 CL = 14 i CH =14- 

D = INT ( RND (1) *3—1)+ 40* 

PO = P < I ) + D - PE = PEEK ( PO ) * 

IF PE = PC THEN 1000 

136 IF PE = 5 THEN PE = 32 
140 IF PE < >8 THEN 153 

145 FOR J = O TO 4 i IF P ( J ) = PO AND 

T ( J ) >5 THEN T ( J ) * T < J ) — 5* 

D = 0~ J = 4 - CA = CA — 1 * NE = NE + 1 

150 NEXT J * GOTO 500 

152 IF PE < > 32 AND RND ( 1 ) > .5 THEN 

D = INT ( RND ( 1 ) * 3 - 1 ) * 

PO =P<I)+D* PE = PEEK ( PO ) - GOTO 136 

153 IF PE < > 32 AND RND ( 1 ) > -5 THEN 

D = INT < RND ( 1 ) * 3 - 1 ) * 

PO = P ( I ) + D : PE = PEEK ( PO ) 

155 IF PE < > 32 THEN D = O * GOTO 500 

160 IF PO > 1983 THEN POKE P ( I ) ,32 * 

T < I > = O * GOTO 600 
165 GOTO 500 
170 CL = 10 J CH = 15 t 

D = INT ( RND < 1 > « 3 - 1 > * 

IF RND ( 1 ) > .1 THEN 

D=(P( I) >P) — (P(I )<P) 

175 PO = P ( I ) + D J PE = PEEK < PO ) - 

IF PE = PC THEN 1000 
1BO IF PE < > 32 THEN D = O 
182 GOTO 500 

185 CL = INT ( RND < 1 ) * 15 + 1 > - CH = 8 i D=0 
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190 IF CA = 5 THEN POKE P(J),32*T(J) = 

CA = CA - 1 i NE = NE + 1 { GOTO 600 
195 GOTO 505 

500 POKE P ( I ) , 32 *P<I)=P(I)+D 

505 POKE P ( I ) + CO, CL * POKE P ( I ) , CH 

600 IF K < > 44 OR N > - 1 OR NE = O THEN 605 

601 N = P - NE = NE — 1 - POKE 54290,0 * 

POKE 54291,71 * POKE 54287,34 * POKE 54286,75 

602 POKE 54290,17 

605 IF K < > 47 OR S > - 1 THEN 610 

606 S = P * POKE 54290,0 * POKE 54291,71 * 

POKE 54287,72 * POKE 54286,169 * POKE 54290,33 
610 IF N = - 1 THEN 650 

615 POKE N,32 * N = N - 40 * IF N < LS THEN N = — 1 

* GOTO 650 

617 IF RND ( 1 ) > .95 THEN N = N + 40 * 

POKE N + CO, 4 t POKE N,7*N = -1* GOTO 650 
620 IF PEEK ( N ) = 32 THEN POKE CO + N, 4 * 

POKE N,6 t GOTO 650 

640 N = N + 40 i POKE N + CO,4 * POKE N,7 * N = - 1 
650 IF S = - 1 THEN 700 

655 POKE S,32 « S = S - 40 « IF S < LS THEN S = - 1 

* GOTO 700 

660 PE = PEEK ( S ) * C = PEEK < S + CO > * 

POKE S + C0,8 t POKE S,9 t IF PE = 32 THEN 700 

661 POKE 54290,0 * POKE 54287,8 * POKE 54286,37 * 

POKE 54291,36 * POKE 54290,129 
665 POKE S + CO,7 i POKE S,10 * FOR J = O TO 4 * 

IFT (J ) =0 OR P ( J ) < > S THEN 680 
670 IF T ( J ) >5 THEN T(J)=T<J>-5* 

SC = SC + 5 i J = 100 * CA = CA - 1 * 

NE = NE + 1 t GOTO 680 

675 SC = SC + T ( J ) t 1O • IF RND ( 1 ) < .7 
THEN T < J ) = O * J = 100 * GOTO 680 

677 FOR J1 = O TO 4 i IF T ( J1 ) = O THEN 

T(J1)=T(J) J P ( J1 ) * P ( J ) * 

J1 = lOO * J = 100 

678 NEXT J1 i IF J1 < 99 THEN T (J)=0*J= lOO 

680 NEXT J t IF J > 5 THEN POKE S,32 * GOTO 690 

682 IF PE = 7 THEN NE = NE + 1 * PE = 32 

683 IF PE = 5 THEN PE = 32 

685 POKE S + CO,C * POKE S,PE 
690 S = - 1 

700 POKE 54273, RND ( 1 ) * 50 * POKE 54272, 

RND ( 1 ) * 256 * IF K = 60 THEN 800 

701 RE = O * IF SC < 25 THEN POKE V + 32,0 

702 IF TI* > "000250" THEN POKE V + 32,7 * GOTO 704 

703 IF SC > = 25 THEN POKE V + 32,11 

704 IF BO = O AND SC > lOOO THEN SZ = O i BO = 1 

705 NEXT I * IF TI* < "000300" THEN 50 

707 IF S > - 1 THEN POKE S,32 i S = - 1 

70B IF N > - 1 THEN POKE N,32 * N = — 1 

710 FOR 1=0 TO 4 * IF T ( I ) > O THEN 

POKE P ( I ) , 32 - T < I ) = O 
715 NEXT * NE = 20 i RE=0*SZ=0*CA=0 
717 POKE V + 33,7 * FOR I = 1 TO 1000 * NEXT * 
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POKE V + 33,0 

720 K = PEEK ( KB ) - POKE P,32 * 

P = P — 40 + ( K = L ) - ( K = R ) 

725 PE = PEEK ( P ) * POKE P + CO,7 * POKE P,PC t 
IF P < LS THEN P = 2004 * SC = SC + lOO * 
GOTO 25 

727 FOR 1=1 TO 50 * NEXT 
730 IF PE = 32 THEN 720 

735 LI =0- I = O * P ( I ) = P * GOTO 1000 

800 IF SC < 25 OR RE THEN 705 

805 POKE V + 33,13 * SC = SC — 25 * FOR J = O TO 4 

* IF T ( J ) = 0 THEN 820 

806 POKE 54290,0 * POKE 54287,72 * POKE 54286,169 

POKE 54291,17 * POKE 54290,129 

810 IF SZ = 1 AND TJ < > 5 THEN 820 

811 IF T < J ) > 5 THEN CA = CA - 1 - NE = NE + 1 

815 POKE P ( J ) , 32 * T ( J ) = O 

820 NEXT J * SZ = 1 J POKE V + 33,0 - RE = 1 - 

GOTO 705 

lOOO POKE P ( I ) ,32 ‘ POKE V + 33,11 * 

FOR J = 1 TO 1000 * NEXT 

1002 POKE 54290,0 * POKE 54287,4 s POKE 54286,73 * 
POKE 54291,240 * POKE 54290,129 
1005 POKE V + 33,12 * FOR J = 1 TO lOOO * NEXT 

1010 POKE V + 33,15 * FOR J = 1 TO lOOO * NEXT 

1015 POKE V + 33,0 * FOR J = 1 TO lOOO * NEXT 
1020 T ( I ) = O * SZ = O * LI = LI - 1 J 
IF LI >0 THEN 700 

1025 POKE V + 24,21 * PRINT " Q Hi GAME ^ OVER" ~ 
PRINT " El El El KSYOU ^ SCORED" ; SC 
1030 IF SC > HI THEN HI = SC 
1035 PRINT " a El tel E1HI A IS"; HI 
1040 PRINT " El El El El ANOTHER ^ GAME?" 

1042 FOR I=0T04*T<I)=0*P<I>=0* 
NEXT 

1045 GET A* - IF A$ = "Y" THEN RESTORE * GOTO 10 
1050 IF A* < > "N" THEN 1045 

1052 POKE 54272,0 ; POKE 54273,0 * POKE 54287,0 * 
POKE 54286,0 
1055 END 

lOOOO DATA 128,128,128,128,128,128,128,128,1,1 
, 1,1,1,1,1,1,0,0,0,0,0,0,0,255 
10005 DATA 1,2,4,8,16,32,64,128,128,64,32,16,8 
,4,2, 1,8,8,8,8,8,8,8,8 
10010 DATA 8,28,62,28,8,0,8,8,62,107,73,119 
,73,107,62,O,62, 65,65,73,65,65,62,0 
10015 DATA 8,28,42,42,8,0,8,0,65,34,54,60,252 
,60,34,65,0,65,65,65,107,107,62,28 
10020 DATA 56,214,124,214,56,16,40,68,0,146 
,124,56,254,56,68,130 
10025 DATA 0,16,40,68,130,68,40,16,0,68 
,56,84,254,124,130,68 
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CHEXSUM 


0=0 

135=6093 

685=1196 

10005 =3£89 

1=3733 

136 = 11 S3 

690=485 

10010=4£E£ 

5=4783 

140=1863 

780=3346 

10015=4315 

7=3757 

145=6107 

701=1879 

100E0 = 3113 

10=3839 

150=903 

708=8438 

108E5 = 383 7 

20=4733 

153=5337 

703=1645 


£5=4875 

153=5378 

704=8346 

TOTAL = 345 13 

30=4 1 19 

i55=1866 

705=1545 

35=8548 

169=8715 

707=1772 


40=4584 

165=539 

708=1738 


45=591 

170=5387 

710=8764 


50=3847 

175=3930 

715=8047 


58=330 

130= 1363 

717=8467 


55=4610 

138=589 

780=3838 


60=1188 

1 ft 5 = P 3 3 3 

785=4864 


65=918 

130=4218 

787=308 


70=1110 

185=533 

730=830 


78=1667 

5G8= 163 1 

735=8038 


75=3488 

585= 1666 

808=1891 


30=8468 

680=8883 

805=3418 


85=6084 

68 1 =3848 

806=3378 


36=1163 

688=597 

810=1688 


37=5139 

605=1735 

8 1 1=8378 


83=5380 

606=3769 

815=1130 


30=1866 

610=364 

380=8518 


35 = 1 073 

615=3084 

1000=8487 


37=583 

617=4044 

1002=3339 


I 84 =6084 

680=8718 

1005=1794 


181=1163 

640=8368 

1010=1797 


188=5153 

650=964 

1015=1737 


103=5335 

655=3117 

1080=8889 


185=1866 

660=4070 

1025=3777 


1 18=1878 

661=3830 

1030=1894 


1 1 1 = 1945 

665=3964 

1035=884 


1 18=539 

670=5538 

1040=1350 


1 15=5 193 

675=3915 

1048=8084 


1 16=5137 

677=4478 

1045=1809 


117=1 163 

678=8054 

1050=1188 


138=8869 

680=1936 

1058=8398 


185=8563 

688=1954 

1055=189 


130=4088 

683 = 1 163 
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Star Duel 



Ram challenges you to a dog fight. The game begins when you accept 
the challenge. 

You must avoid the ground, his craft and his missiles while trying to 
manoeuvre your craft into a position which will enable you to fire your 
missiles at him. 

Your craft is controlled by using the ‘W’ and ‘X’ keys to move up and 
down, and the ‘A’ and ‘D’ keys to shift left and right. When you have Ram 
in your sights use the ‘S’ key to fire your missile. 

Remember, if either craft is hit it will crash to the ground. 

Yours is the blue craft. See if you can outsmart him! 
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PROGRAM STUCTURE LINES 

INITIALIZATION 0 — 25 

CHANGE DIRECTION OF OPPONENT 26 

(OR ON COLLISION) 

CALCULATE NEW POSITION AND MOVE OPPONENT 27 — 48 

IF HIT (YOU): DROP, MUSIC AND MESSAGES 49 

GET KEY PRESSED, IF HIT OPPONENT: 50 

DROP, MUSIC AND MESSAGES 

CHANGE DIRECTION OR HEIGHT ACCORDING 55 — 70 

TO KEY 

IF‘FIRE KEY’PRESSED 72 

POSITION BULLET 73 

NOISE 74 

MOVE IN DIRECTION D 75 

WRAP AROUND SCREEN 80—101 

IF HIT (YOU): DROP, MUSIC AND MESSAGES 102— 104 

IF BULLET TRAVELLING 110 

MOVE 120—131 

IF IT HITS: DROP, MUSIC AND MESSAGES 132 

IF OPPONENT BULLET TRAVELLING 150 

MOVE 170—181 

IF IT HITS: DROP, MUSIC AND MESSAGES 182 

GO TO CHANGE DIRECTION OF OPPONENT 
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DROP ROUTINE (YOU) 

1000—1020 

DROP ROUTINE (OPPONENT) 

2000 — 2020 

MUSIC AND MESSAGE ROUTINE (OPPONENT) 

5000 — 5040 

MUSIC AND MESSAGE ROUTINE (YOU) 

6000 — 6040 

SPRITE DATA 

9000 — 9110 


VARIABLES 

X, Y = YOUR POSITION 

XI, Y1 = OPPONENT’S POSITION 
D = YOUR DIRECTION 

D1 = OPPONENT’S DIRECTION 

SX = BULLET POSITION 

SD = BULLET DIRECTION 

SZ = OPPONENT’S BULLET POSITION 

DZ = OPPONENT’S BULLET DIRECTION 



SPRITE 

PLAYER/ALIEN 
SHIP 
MOVING 
RIGHT 



SPRITE 

PLAYER/ALIEN 

SHIP 

MOVING 

LEFT 
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STAR DUEL 


O POKE 54296,10 * POKE 54277,0 * POKE 54278,240 * 
POKE 54276,0 * POKE 54276,129 t SX = O 
1 POKE 54272,0 * POKE 54273,0 * PRINT " Q" * 

POKE 53280,4 * POKE 53281,4 - CO = 54272 
20= 53248 * POKE 2040,192 * POKE V + 39,14 * 

POKE 2041,193 * POKE 2042,194 * POKE 2043,194 

3 POKE 2044,195 ± POKE V + 40,5 * POKE V + 43,0 c 

POKE V + 28,31 * POKE V + 37,2 * POKE V + 38,7 

4 FOR I = 0 TO 254 * READ Q * POKE 12288 + I,Q * 

NEXT * POKE V + 21,31 * POKE V + 29,19 * 

POKE 0,100 

5 POKE O + 2,200 * POKE 0+4,50 * 

POKE O + 6,230 * POKE O + 8,165 

6 GOSUB 4000 

7 PE = PEEK ( O + 30 ) * PE = PEEK (0+31 ) i 

X = 100 t Y = 60 * D = 4 - XI = 200 * 

Y1 = 120 * D1 = — 4 
10 PRINT " 

- 3 H H H 

^ ^ ^ ^ H" 5 

12 PRINT " la ^ A ^ . 3HH 

B . . . [1HHHHB . . SHHHB 

14 print"" 1 A 3 B A A ^ ^ n 

m A. ^ A. A. A 3HBB A A. A. A 3 H B 


15 PRINT " ISJA.A.A.A.A.A.A.A.A.A.A.A.A.A.A.A. 

A.A.A.HB^^A.A.A.^^A.^^^A.A.^ 

H" - TA = INT ( RND ( 1 ) * 10 ) 

16 FOR I = 56256 TO 56295 * POKE I - CO,160 * 

POKE 1,9 i NEXT 

18 FOR I = 56256 + TA TO 55837 + TA STEP - 39 - 

POKE I - CO,233 * POKE 1,5 * NEXT 

19 FOR I = 56278 + TA TO 55837 + TA STEP - 41 J 

POKE I - CO,223 * POKE 1,5 - NEXT 

20 FOR 1=0 TO 10 * FOR J = 

56257 - I * 40 + I + TA TO 56277 - I * 40 - I 
+ TA - POKE J - CO,160 * POKE J,5 * NEXT 

25 NEXT 

26 IF RND ( 1 ) < .05 OR PEEK ( V + 30 ) =2 

THEN D1 = — D1 J POKE 54273,10 

27 XI = XI + D1 * IF RND ( 1 ) < .1 THEN 

Y1 = Y1 + ( ( Y1 > Y ) - ( Y1 < Y ) ) t 4 : 

GOTO 30 

28 Y1 = Y1 + ( INT ( RND ( 1 ) * 3 ) - 1 ) * 4 

30 IF XI < 10 AND D1 = - 4 THEN XI = 320 

35 IF XI > 320 AND D1 = 4 THEN XI = O 

36 IF Y1 < 60 THEN Y1 = 60 

40 IF Y1 > 200 THEN Y1 = 200 

41 IF RND ( 1 ) > .2 OR Y1 < Y - 10 AND 

Y1 > Y + lO AND RND ( 1 ) < .30 OR 

S2 < > O OR XI > 280 THEN 45 

43 S2 = XI + ( D1 * 5 ) t D2 = D1 I 3 J 
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IF D1 = 4 THEN S2 = S2 + 30 - POKE V + 7,Y1 

44 FOR I = 50 TO O STEP - 2 * POKE 54273,1 t 

NEXT ^ POKE 54273,0 

45 IF D1 = - 4 THEN POKE 2041,193 

46 IF D1 = 4 THEN POKE 2041,192 

47 POKE V + 3,Y1 * IF XI > 255 THEN 

POKE V + 2, XI - 256 * POKE V + 16, 

PEEK < V + 16 ) OR 2 - GOTO 49 

48 POKE V + 2, XI * POKE V + 16, PEEK ( V + 16 ) 

AND 253 

49 IF PEEK ( V + 30 ) =3 THEN lOOO 

50 PE = PEEK ( 197 ) t IF PEEK ( V + 30 ) = 6 THEN 2000 

55 IF PE = 9 AND Y > 60 THEN Y = Y — 4 * 

POKE 54273,200 

60 IF PE = 23 THEN Y = Y + 4 * POKE 54273,200 

65 IF PE = 10 THEN D = - 4 * POKE 54273,10 

70 IF PE = 18 THEN D = 4 - POKE 54273,10 

72 IF PE < > 13 OR SX < > O OR X > 200 THEN 75 

73 SX = X + < D * 5 ) t POKE V+5,Y*SD=D*3 

* IF D = 4 THEN SX = SX + 30 

74 FOR I = 50 TO O STEP - 2 * POKE 54273, I * 

NEXT t POKE 54273,0 

75 X = X + D - IF D = 4 THEN POKE 2040,192 
80 IF D = - 4 THEN POKE 2040,193 

90 IF X < lO AND D = - 4 THEN X = 320 
95 IF X > 320 AND D = 4 THEN X = O 

100 POKE 54273,0 * POKE V + 1, Y * IF X > 255 THEN 

POKE V,X - 256 i POKE V + 16, PEEK ( V + 16 ) 

OR 1 i GOTO 102 

101 POKE V,X * POKE V + 16, PEEK ( V + 16 ) AND 254 

102 IF PEEK ( V + 300 ) = 3 THEN lOOO 

103 IF PEEK < V + 30 ) =9 THEN 1000 

104 IF PEEK ( V + 31 ) = 1 THEN lOOO 

110 IF SX = O THEN 150 

120 IF SX < 10 OR SX > 310 THEN SX = O * SD = O i 
POKE V + 5,0 * POKE V + 4,50 

130 SX = SX + SD * IF SX > 255 THEN 

POKE V + 4,SX - 256 * POKE V + 16, 

PEEK ( V + 16 ) OR 4 * GOTO 132 

131 POKE V + 4,SX * POKE V + 16, PEEK ( V + 16 ) 

AND 251 

132 IF PEEK ( V + 30 ) =6 THEN 2000 
150 IF S2 = O THEN 26 

170 IF S2 < 10 OR S2 > 310 THEN S2 = O * D2 = 0 * 

POKE V + 7,0 * POKE V + 6,230 

180 S2 = S2 + D2 i IF S2 > 255 THEN 

POKE V + 6,S2 - 256 * POKE V + 16, 

PEEK < V + 16 ) OR 8 - GOTO 182 

181 POKE V + 6,S2 J POKE V + 16, PEEK ( V + 16 ) 

AND 247 

182 IF PEEK < V + 30 ) =9 THEN lOOO 
190 GOTO 26 

lOOO POKE V + 6,0 * POKE V + 7,0 * FOR I = Y TO 200 

i POKE V + 1,1 * POKE 54273,1 

1005 FOR J = 1 TO 5 i NEXT * NEXT * POKE 54273,0 

1010 FOR 1=1 TO 7 * POKE V + I,0 * NEXT 
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1020 GOTO 5000 

2000 POKE V + 4,0 * POKE V + 5,0 * 

FOR I = Y1 TO 200 * POKE V + 3, I * 

POKE 54273,I 

2005 FOR J = 1 TO 5 * NEXT * NEXT * POKE 54273,0 

2010 FOR 1=1 TO 7 * POKE V + 1,0 * NEXT 

2020 GOTO 6000 

4000 print •• 6a a 03 Hi Hi w w w cu 03 cu w iu iu iu m m w 

ta.STAR ^ DUEL a Hi Oi 03 03 03 03 03 03 03 03 03 03 03 03 1 

4001 FOR I = 1 TO 11 

4002 PRINT " 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 

03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 

03 03 03 03 03" 5 

4003 NEXT 

4004 POKE V + 8,165 * POKE V + 9, 100 

4010 PRINT M 03 ^ ^ I ^ AM ^ RAM ^ OF ^ PLANET 

^ BYTE. ^ I ^ HAVE ^ CHOSEN - ^ YOU ^ TO ^ DEFEND 
^ YOUR ^ PLANET. " 

4020 PRINT "HI ^ CHALLENGE ^ YOU ^ TO ^ A ^ DUEL' " 

4025 PRINT "DO ^ YOU ^ ACCEPT?" 

4026 GET A* * IF A$ = "N" THEN PRINT " l£jCOWARD" * 

END 

4028 IF A* < > "Y" THEN 4026 

4030 PRINT " A A THE ^ DUEL A WILL ^ BE ^ ABOVE ^ THE 
^ PLANET ^ MARS" 

4040 PRINT " □ a. ^ HI ^ MUST ^ WARN ^ YOU ^ THAT ^ ONLY 

^ ONE ^ OF ^ YOUR ^ A ^ SHOTS A CAN ^ DESTROY ^ ME. 
4050 PRINT " to. ^ ^ YOU ^ HOWEVER ^ CAN ^ CRASH' " 

4060 PRINT "HM . ^ ^ ^ PRESS ^ * SPACE 7 ^ WHEN ^ YOU 
^ ARE ^ READY. " 

4065 GET A* * IF A$ < > " * " THEN 4065 

4066 PRINT " Q" * POKE V + 9,0 

4067 POKE 53281,0 s POKE 53280,0 
4070 RETURN 

5000 POKE 53280,4 * POKE 53281,4 * PRINT * 

POKE 54273,0 

5001 PRINT "63"t * FOR I = 1 TO 12 

5002 PRINT " 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 

03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 
03 03 03 03 03 03" i 

5003 NEXT 

5010 PRINT " GOODBYE, MORTAL. YOU ^ FOUGHT ^ WELL. " 

5020 PRINT " a tel H3 tel DOES ^ ANOTHER ^ HUMAN ^ DARE 
^ TO ^ CHALLENGE ^ ME?" 

5025 GET A* * IF A$ = "Y" THEN GOSUB 4066 * GOTO 7 
5030 IF A* < > "N" THEN 5025 

5035 PRINT " HLVERY WELL, THE ^ EARTH ^ WILL ^ SOON ^ BE 
a MINE!" 

5040 END 

6000 POKE V + 23,16 - POKE 53280,4 * POKE 53281,4 s 

POKE V + 8,150 * POKE V + 9,100 * POKE 54273,0 
6005 POKE 54296,0 * POKE 54296,15 * POKE 54276,0 * 

POKE 54276,17 

6010 PRINT " HHKIMMfflMIfflMIflKIKlElMWMI ^ AM 
^ DYING ^ EARTH ^ MAN!" 

6020 FOR 1=1 TO 200 * POKE 54273,1 * NEXT * 
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POKE V + 9,0 * FOR I = 100 TO 1 STEP - .5 

6025 POKE 54273,1 * NEXT * FOR I = 10 TO 50 STEP .5 

6026 POKE 54273,1 s NEXT * POKE V + 23,0 * 

POKE V + 29,0 * POKE V + 8,150 * 

POKE V + 9,100 

6028 FOR I = 1 TO 50 STEP .5 * POKE 54273,1 * NEXT * 

POKE V + 8,0 * POKE V + 9,0 * FOR I = 20 TO 1 
STEP - .2 

6029 POKE 54273,1 * NEXT * POKE 54273,0 

6030 PRINT " ■_ ISJGOODBYEEE! ! ! ! “ 

6035 GET A* * FOR I = 1 TO 5000 * NEXT * PRINT " Q" 
6040 END 

9000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3 
,0,0,3,0,0,3,192,0,3,192,0,19,240,0 
9010 DATA 7,176,0,67,247,128,7,183,32,83,247 
,245,2,166,245,2,240,O 
9020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
9030 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 

,0,192,0,0,192,0,3,192,0,3,192,0,15,196 
9040 DATA O, 14,208,2, 223, 193,8,222,20B,95 

,223,197,95,218,128,0,15,128,0,0,0,0,0 
9050 DATA 0,0,0,0,0,0,0,0,0,0,99 
9060 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,4,0 
9070 DATA 0,21,0,0,127,64,0,21,0,0,4,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
9090 DATA 60,0,60,12,170,48,15,170,240,14 
,170,176,2,130, 128,2,0, 128,2,60,128 
9100 DATA 10,60,160,10,0,160,10,0,160,8,0 

,32,8,170,32,8,150,32,8,150,32,88,170 
9110 DATA 37,88,0,37,90,0,165,21,170,84,21 
,130,84,5,170,80,5,170,80 



SPRITE 

PLAYER/ALIEN 

MISSILE 
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CHEXSUM 

0 =3852 75 

1=3668 80 

2=4070 98 

3=4327 85 

4=4405 100 

5=2938 101 

6=351 102 

7=5336 103 

10=6009 104 

12=3253 110 

14=3399 120 

15=3902 130 

16=2693 131 

18=3903 132 

19=3897 150 

20=6172 170 

25=131 180 

26=3417 181 

27=4676 132 

28=2084 190 

30=1957 1000 

35 =1742 1005 

36=1195 1010 

40=1321 1020 

41=5265 2000 

43=4257 2005 

44=2626 2010 

45=1460 2020 

46=1280 4000 

47=4843 4001 

48=2376 4002 

49=1456 4003 

50=2310 4004 

55=2610 4010 

60=2067 4020 

65=1917 4025 

70=1756 4026 

72=2475 4028 

73=4121 4030 

74=2626 4040 


1926 

4050=2222 

1401 

4060=3186 

1811 

4065=1492 

1592 

4066=1005 

5 151 

4067=1171 

2048 

4070=143 

1498 

5000=2305 

1456 

5001=1122 

1456 

5002=9525 

CO 

CO 

CO 

5003=131 

3812 

5010=2931 

5130 

5020=3771 

2405 

5025=2007 

1460 

5030=1188 

792 

5035=3502 

3731 

5040=129 

4966 

6000=4161 

2372 

6005=2507 

1456 

6010=2425 

474 

6020=3641 

3482 

6025=1914 

1676 

6026=3755 

1528 

6028=4508 

583 

6029=1365 

356 1 

6030=1302 

1676 

6035=1864 

1528 

6040=129 

583 

9000=4013 

8393 

9810=3247 

71 1 

9020=1896 

9525 

9030=4490 

131 

9040=4429 

1438 

9050=1307 

6673 

9060=3865 

2244 

9070=4137 

CTi 

OJ 

9090=4079 

2129 

9100=4299 

1205 

9 1 10=3292 

3587 

6133 

TOTAL= 328500 
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Cowboy Shootout 



Shoot the computer-controlled cowboy as many times as you can 
without him shooting you. As you shoot it out you have to avoid the 
wagons passing between you. You can’t shoot through them. 

Your controls are: 

‘W’ for up 
‘X‘ for down 
‘S’ to fire 

You’re on the left, the computer is on the right. 

Straight shooting! 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

1—45 

GET KEYBOARD CHARACTER 

50 

PUT PLAYER AT RESULTANT POSITION 

55, 57 

PUT COMPUTER 

60 — 80 

PLAYER SHOOTS 

85, 90, 130, 135 

COMPUTER SHOOTS 

100, 125, 155, 160 

MOVE CARRIAGE 

165 

SHRINK CARRIAGE 

170 

TEST IF PLAYER SHOT 

175 

TEST IF COMPUTER SHOT 

176 

TIME DISPLAY 

182 

DATA 

10000—10115 


VARIABLES 

K = KEYBOARD CHARACTER 

A = ALTERNATELY HOLDS THE POSITIONS OF COMPUTER AND 
PLAYER 

PS = PLAYER SHOOT FLAG 
CS = COMPUTER SHOOT FLAG 
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COWBOY SHOOT-OUT 


1 POKE 54296,0 * POKE 55,255 * POKE 56,47 

* V = 53248 * POKE 54296,15 

5 FOR I = O TO 510 * READ A * POKE 12 * 1024 + I,A 
t NEXT * PRINT M Q" 

10 POKE 2040,192 * POKE 2041,192 * POKE V,86 
s POKE V + 1,50 * POKE V + 2,244 

* POKE V + 3,200 

15 POKE V + 39,14 * POKE V + 40,7 * POKE V + 33,8 

* POKE V + 32,5 * POKE V + 28,19 

* POKE V + 37,9 

20 POKE V + 38,10 * POKE V + 21,19 * POKE V + 41,1 

* POKE V + 42,1 * POKE 2042,198 * POKE 2043,198 
25 POKE 2044,199 * POKE V + 43,7 * POKE V + 8,160 

s POKE V + 9,248 t POKE V + 23,16 

* POKE V + 29,16 

45 KB = 197 * PS = O i CS = O * PC = O i CC = O 

* A = PEEK < V + 30 ) i CO = O « YO = O 

* TI* = "OOOOOO" 

50 K = PEEK ( KB ) * A = PEEK ( V + 1 ) 

* A = A + (K= 23 ) * ( A < 225 ) 

*2-<K=9) * ( A > 50 ) *2 

55 POKE V + 1, A * PC = PC + 1 

i IF PC = 3 THEN POKE 2040,192 * PC = 0 
57 CC = CC + 1 - IF CC = 3 THEN POKE 2041,192 
i CC = 0 

60 A = PEEK ( V + 3 ) 

* IF RND ( 1 ) > .3 

THEN A = A + INT ( RND ( 1 ) * 3 - 1 ) * 2 
c GOTO 70 

65 A = A + ( A > PEEK ( V + 1 ) ) 

* 2 - ( A < PEEK < V + 1 > > * 2 

70 IF A > 255 THEN A = 255 

75 IF A < 50 THEN A = 50 

80 POKE V + 3,A * IF K < > 13 OR PS THEN 100 
85 POKE 2040,194 - PC = O - PS = 1 * POKE V + 4,98 

* POKE V + 5, PEEK ( V + 1 ) 

- POKE V + 21, PEEK ( V + 21 ) OR 4 

90 POKE 54273,17 * POKE 54272,37 * POKE 54277,24 

* POKE 54276,0 * POKE 54276,129 
lOO IF RND ( 1 ) < .9 OR CS THEN 125 

105 POKE 2041,193 * CC = O « CS = 1 i POKE V + 6,232 

* POKE V + 7, PEEK ( V + 3 ) 

* POKE V + 21, PEEK ( V + 21 ) OR 8 

110 POKE 54287,17 * POKE 54286,37 * POKE 54291,24 

* POKE 54290,0 * POKE 54290,129 
125 IF PS = O THEN 150 

130 A = PEEK ( V + 4 ) +8 
i IF A > 255 

THEN POKE V + 21, PEEK < V + 21 ) - 4 

- PS = O - GOTO 150 
135 POKE V + 4, A 

150 IF CS = O THEN 165 
155 A = PEEK ( V + 6 ) - 8 

* IF A < 80 
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THEN POKE V + 21, PEEK < V + 21 ) - 8 
i CS = O « GOTO 175 
160 POKE V + 6, A 

165 POKE V + 9, PEEK ( V + 9 ) - 4 

* IF PEEK < V + 9 ) = 8 THEN POKE V + 23,16 

* POKE V + 29,16 * POKE V + 9,244 

170 IF PEEK < V + 9 ) = 120 THEN POKE V + 23,0 

* POKE V + 29,0 

175 A = PEEK < V + 30 ) * IF A = 9 THEN 1000 

176 IF A = 6 THEN 2000 

177 IF A = 20 THEN PS = O i POKE V + 4,0 

180 IF A = 24 THEN CS = 0 * POKE V + 6,0 

182 PRINT M 0a"iTI* 

185 IF TI* < "OOOIOO" THEN 50 

190 POKE V + 33,0 i POKE V + 27,255 

i PRINT " Q E3TIME A UP" t PRINT " [ffl ffl [S3 SCORE - " 
195 PRINT “ a M M K! [fflYOU ^ ^ ^ ^ A M ;Y0 

* PRINT "COMPUTER";CO 

200 PRINT " ffl K3 K3 M E3ANOTHER ^ GAME?" 

205 GET A* * IF A* = "Y" THEN POKE V + 27,0 

* PRINT " Q" * GOTO 10 
210 IF A* < > "N" THEN 205 

215 POKE V + 27,0 * POKE V + 21,0 J POKE 54273,0 

* POKE 54272,0 * POKE 54287,0 * POKE 54286,0 

* END 

lOOO POKE 2040,196 * T* = TI* * POKE 54273,34 

* POKE 54272,75 t POKE 54276,0 * POKE 54277,240 

1005 POKE 54276,17 * POKE V + 28, PEEK ( V + 28 ) OR 8 

* POKE V + 6, PEEK ( V ) 

* POKE V + 7, PEEK ( V + 1 ) 

1010 POKE V + 21, PEEK ( V + 21 ) OR 8 * POKE 2043,197 

1015 FOR I = PEEK ( V + 1 ) TO O STEP - .1 

* POKE V + 7,1 5 NEXT 
1020 POKE 2040,192 - CS = 0 

* POKE V + 21, PEEK ( V + 21 ) - 8 

^ POKE V + 28, PEEK ( V + 28 ) - 8 

* POKE 2043,198 

1025 CO = CO + 1 * GOTO 2030 

2000 POKE 2041,195 * T* = TI* - POKE 54287,34 

* POKE 54286,75 * POKE 54290,0 * POKE 54291,240 
2005 POKE 54290,33 * POKE V + 28, PEEK ( V + 28 ) OR 4 

* POKE V + 4, PEEK ( V + 2 ) 

* POKE V + 5, PEEK ( V + 3 ) 

2010 POKE V + 21, PEEK ( V + 21 ) OR 4 t POKE 2042,197 
2015 FOR I = PEEK ( V + 3 ) TO O STEP - . 1 
~ POKE V + 5,1 t NEXT 
2020 POKE 2041,192 t PS = O 

* POKE V + 21, PEEK ( V + 21 ) - 4 

* POKE V + 28, PEEK ( V + 28 ) - 4 

* POKE 2042,198 
2025 YO = YO + 1 

2030 A = PEEK ( V + 30 ) * TI* = T* * GOTO 50 

lOOOO DATA 0,4,0,0,21,0,0,12,0,0,12,0,2,170,160,10,170, 
168,8,170,136,8,42,8 

10005 DATA 8,42,8,8,85,8,11,106,56,0,21,0,0,21,0,0,17, 
0,0,81,64,0,81,64,0,64,64 
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10010 DATA 0,64,64,0,64,64,0,64,64,0,64,64,99 
10015 DATA 0,0,0,0,4,0,0,21,0,80,12,0,48,12,0,42,42, 

64,lO,170,160,0, 170,8 

10020 DATA 0,42,8,0,42,8,0,21,32,0,41,48,0,21,0,0,21,0, 
0,81,0,1,65,0,1, 1,0, 1,1,0 
10025 DATA 1,1,64,1,0,84,5,0,4,99 

10030 DATA 0,0,0,0,16,0,0,84,0,0,48,5,0,48,12,2,168, 

168,lO,170,160,32,170,0 

10035 DATA 32,168,0,32,168,0,8,84,0,12,104,0,0,84,0,0,84, 
0,0,69,0,0,65,64,0,64 

10040 DATA 64,0,64,64,1,64,64,21,0,64,16,0,80,99 
10045 DATA O, O, O, O, O, 0,0, O, O, O, O, O, O, O, O, O, O, O, O, 6, O, O, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 6 , 0 , 0 , 0 , 0,0 

10050 DATA 0,0,0,0,4,0,5,21,165,80,174,165,64,2,128, 

17,0,160,4,0,128,0,2,128 
10055 DATA 0,58,0,0,99 

10060 DATA 0,0,0,0,0,0,0,0, 0,6, 0,0,0,0,0,0,0,0, 0,6, 0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

10065 DATA 0,0,0,0,80,0,16,5,90,84,1,90,186,68,2,128, 

16,10,0,0,2,0,0,2,128 
10070 DATA 0,0,172,99 

10075 DATA 0,12,0,2,12,32,10,42,40,10,170,168,10,170, 

168,10,170,168,10,170,168 

10080 DATA 10,187,168,10,170,168,10,170,168,10,42,40, 
10,42,40,2,42,32,2,34,32 

10085 DATA 2,34,32,0,34,0,0,34,0,0,34,0,0,34,0,0,34,0, 
0,0,0,99 

10090 DATA 0,0,0,0,0,0,0,0,0,0,16,0, 

10095 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10100 DATA 0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,99 
10105 DATA 0,0,0,0,8,0,0,170,128,2,170,160,10,128,168, 
10,0,40,10,0,40,10,1,40 

10110 DATA 10,5,104,10,3,40,10,5,104,10,1,40,10,1,40, 
10,1,40,5,85,84,0,4,0 

10115 DATA 1,4,16,1,4,16,1,85,80,1,0,16,1,0,16 




PLAYER/ENEMY CARRIAGE 

SHOOTING 
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CHEXSUM 


1 =£325 

1008=3914 

5=2332 

1885=46 18 

10=4 1 1 1 

1010=2137 

15-4463 

1835=2585 

£0=4271 

1020=5052 

£5=4531 

1025=1333 

45=5503 

£000=3918 

50=5264 

£085=4863 

55=3327 

£010=2137 

57=2540 

£015=2585 

68=4343 

£828=5067 

65=3356 

£025=748 

78=1 156 

£030=2074 

75=1834 

10000=3337 

30=2053 

10005=4258 

95=5226 

18010=2033 

98=3329 

18015=3561 

180=1466 

18028=4341 

105=5274 

18625=1322 

118=3327 

18030=3315 

125=879 

18835=4178 

138=4644 

10840=2135 

135=576 

13845=4315 

150=863 

10850=3905 

155=4586 

13055=710 

160=578 

10860=4315 

165=5046 

10065=3751 

170=2650 

18078=656 

175=1737 

10075=4170 

176=828 

10080=4360 

177=174 1 

10035=2333 

130=1725 

10098=1403 

182=518 

10835=4315 

185=1£36 

10 130=1393 

130=3663 

18 185=48 12 

195=2403 

13 1 13=3698 

£80=1390 

18 1 15=2053 


805 : 
810: 
2 15 = 


£839 
1 121 
4090 



7 SPRITE 

DEAD 
PLAYER 



SPRITE 

PLAYER/ENEMY 

GHOST 


SPRITE 

BULLET 

fOTP[L= £30344 
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Earth Defense 



You are left with insufficient fuel to make it back to earth so you embark 
on a suicide mission to kill as many aliens as possible with your 
remaining fuel. 

Your controls are: 

‘W’ up 
‘X’ down 
‘A’ left 
‘D’ right 
‘S’ to fire 

‘spacebar’ for shields 

You have shields to protect your spaceship, however these use a lot of 
fuel and only last for a couple of seconds. 

While shielded your craft will be a grey colour. 
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PROGRAM STRUCTURE 

INITIALIZATION 
SET UP DISPLAY 
GET KEYBOARD CHARACTER 
UPDATE SCORE 
TEST WHICH KEY PRESSED 
FIRE PLAYER’S MISSILES 
SHIELD CONTROL 
UPDATE FUEL 

RANDOM DIRECTION OF COMPUTER 

COMPUTER FIRES MISSILE 

TEST IF PLAYER IS HIT 

MISSILES COLLIDE 

PLAYER EXPLODES 

PLAYER HITS SHIP 

DATA 


VARIABLES 

PE = LAST KEYSTROKE 
F = FUEL 

SH = INCREMENT FOR PLAYER’S MISSILE 

P = HORIZONTAL POSITION OF PLAYER 

YP = VERTICAL POSITION OF PLAYER 

SY = VERTICAL POSITION OF PLAYER’S MISSILE 

SX = HORIZONTAL POSITION OF PLAYER’S MISSILE 

X = HORIZONTAL POSITION OF COMPUTER 

Y = VERTICAL POSITION OF COMPUTER 

EX = HORIZONTAL POSITION OF COMPUTER’S MISSILE 

EY = VERTICAL POSITION OF COMPUTER’S MISSILE 


LINES 

0 — 4 
5 — 9 
10 
11 

13— 18 

20 — 23,900 — 930 

24 

25 

26 — 30 

31—39,950 — 970 
40 

42 — 49 
800 — 840 
21,200 — 210 
9000 — 9140 
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EARTH DEFENCE 


O POKE 55,255 * POKE 56,47 $ PRINT " Q" 

* POKE 53281,0 * POKE 53280,0 * V = 53248 

* CO = 54272 

1 BM = O i FOR J = 1 TO 30 

* I = RND ( 1 ) * lOOO + 55296 * POKE 1,1 

* POKE I - CO,46 * NEXT 

2 POKE V + 21,31 * POKE 2040,192 * POKE 2041,193 

* POKE 2042,194 * POKE 2043,195 * POKE 2044,196 

3 POKE V + 39,8 * POKE V + 40,3 * POKE V + 41,7 

* POKE V + 42,10 * POKE V + 43,5 

4 FOR I = O TO 318 * READ Q * POKE 12288 + I,Q 

* NEXT * POKE 54296,1 * POKE 54278,240 

* POKE 54276,129 

5 P = 120 * YP = 200 * POKE V,P * POKE V + 1,YP 

* X = 50 + INT ( RND ( 1 ) * 180 ) * Y = O 

* POKE V + 2,X - POKE V + 3,Y 

7 PE = PEEK ( V + 30 ) * F = O * POKE 54272,108 

* POKE 54273,223 

8 PRINT " E=S El m [ffl || || || || || || a SCORE t M 

* POKE V + 4,200 

9 PRINT " HfflfflKIMEIHMHIMNHIiaidDMIlG 

El II IZi KJ II Cl KJ II Cl K) II U ttl II U [ffl II Lj tel 

II LJ tel II Lj tel II LJ tel II LJ tel II LJ tel II LJ “ 

10 PE = PEEK ( 197 ) * F = F + .Ol * POKE V + 39,8 

MF HH < > O THEN POKE V + 39,12 

11 PRINT " a El El El El II II II II II E3 " » S 

12 POKE 55613 + INT ( F ) * 40,4 

13 IF PE = 10 AND P > 50 

THEN P = P - 5 * F=F+.01 

14 IF PE = 18 AND P < 239 

THEN P = P + 5*F = F+ .01 

15 IF PE = 9 AND YP > 175 THEN YP = YP - 5 

s F = F + .01 

16 IF PE = 23 AND YP < 230 THEN YP = YP + 5 

i F = F + .01 

17 IF PE = 13 AND SH = O THEN GOSUB 900 

18 IF PE = 60 AND HH = O THEN HH=1*F = F + 1 

19 IF SH = O THEN 24 

20 FOR 1=1 TO 2 * SY = SY — SH - POKE V + 5,SY 

21 IF PEEK ( V + 30 ) =6 THEN GOSUB 200 

22 IF SY < 60 THEN SY = O • SH = O * SX = 150 

* POKE V + 5,0 

23 NEXT 

24 IF HH < >0 THEN HH = HH + 1 

* IF HH = 10 THEN HH = O 

25 POKE V,P * POKE V + 1,YP J IF F > 15 THEN lOO 

26 IF RND < 1 ) < .1 

THEN RN = INT ( RND ( 1 ) * 3 - 1 ) 

* IF RN = O AND RND ( 1 ) < .1 THEN 26 

27 IF X > 239 THEN RN = - 1 

28 X = X + RN * 4 * IF X < 50 THEN RN = 1 

29 Y = Y + 4 i IF Y > 235 THEN Y = O 

* X = 50 + INT ( RND ( 1 ) * 180 ) 
t SM = SM + 1 
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30 POKE V + 2,X * POKE V + 3,Y 

31 IF EY = O AND RND < 1 > < . 1 AND Y < 220 

THEN EY = Y +• 20 

* EX = X - POKE V + 6,X * SOSUB 950 

32 IF EY = O THEN GOTO 10 

35 FOR 1=1 TO 2 * EY = EY + 6 ; POKE V + 7,EY 

* POKE V + 6,EX 

36 IF RND ( 1 ) < .2 

THEN EX = EX + < ( EX > P ) - < EX < P ) ) * 5 

37 IF EX < 35 THEN EX = 35 

38 IF EX > 238 THEN EX = 238 

39 IF EY > 235 THEN EY = O - EX = O * POKE V + 7,EY 

* POKE V + 6,EX * GOTO 10 

40 IF PEEK ( V + 30 ) =9 AND HH = O THEN 300 

42 NEXT * IF PEEK ( V + 30 ) < > 12 THEN 10 

43 POKE 54273,0 * POKE 54272,0 * POKE 54296,5 

* FOR I = 30 TO 1 STEP - 1 * POKE 54273, I 

* NEXT 

44 POKE 54296,1 * * POKE 54273,223 t POKE 54272,108 

46 POKE V + 5,0 i POKE V + 7,0 * POKE V + 8, EX 

* POKE V + 9,EY 

47 FOR I = 1 TO 100 * NEXT 

48 EX = 50 i EY = O * SY = 0 * SX = O * SH = O 

* POKE V + 8,0 * POKE V + 9,0 

49 GOTO 10 
lOO GOSUB 800 

110 PRINT " Q l=| YOU' VE ^ RUN ^ OUT ^ OF ^ ENERGY ! " 

120 PRINT " KJ KJ M C3HARD ^ LUCK, ^ WELL ^ DONE A 
FOR ^ SURVIVING A FOR ^ SO ^ LONG! " 

150 PRINT " 


160 PRINT " [5] HJDO A YOU ^ WANT ^ ANOTHER ^ GAME?" 

170 GET A* * IF A* = "Y" THEN RUN 
180 IF A* < > "N" THEN 170 
190 PRINT " k fflBYE" 

195 END 

200 POKE 54272,0 * POKE 54296,10 

* FOR I = 50 TO 1 STEP - 1-5 * POKE 54273,1 
t NEXT 

201 POKE 54296,1 * POKE 54273,223 t POKE 54272,108 

202 POKE V + 2,0 * POKE V + 3,0 * POKE V + 8, X 

s POKE V + 9,Y 

205 S = S + lO : IF Y = SY THEN S = S + 40 

206 FOR Z = 1 TO lOO * NEXT * POKE V + 8,0 

; POKE V + 9,0 

210 SH = O - SY = O i SX=Ot Y = O * RETURN 
300 GOSUB 800 

310 PRINT " QYOU A GOT ^ HIT ^ BY ^ AN ^ ENEMY ^ MISSILE! ! " 
315 PRINT “ M M [SHARD ^ LINES! " 

320 PRINT " H3 EJ H SCORE * " ; S 

325 PRINT "ENERGY ^ UNITS USED"; INT ( F ) 

330 PRINT " figENEMY ^CRAFT ^ NOT ^DESTROYED" ; SM 
340 PRINT "MM KNOT A BAD! " 

350 GOTO 150 

800 FOR 1=1 TO 7 - POKE V + 1,0 * NEXT 

801 POKE 54273,0 * POKE 54272,0 * POKE 54276,0 
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805 POKE 54296,15 * POKE 54276,129 
810 POKE V + 8,P * POKE V + 9,YP 

820 FOR I = 50 TO 1 STEP - 1 * POKE 54273, I * NEXT 

* POKE 54273,0 * POKE 54272,0 * POKE 54296,1 
830 POKE V + 8,0 * POKE V + 9,0 

840 RETURN 

900 POKE 53280,2 * SH = 6 * SX = P * SY = YP 

* POKE V + 4,SX * F = F + .05 * POKE 53280,0 
910 POKE 54273,0 * POKE 54272,0 * POKE 54296,10 

* FOR 1=0 TO 150 STEP 3 * POKE 54273,1 

* NEXT 

920 POKE 54273,0 * POKE 54296,1 
930 RETURN 

950 POKE 54273,0 * POKE 54272,0 * POKE 54276,0 

* POKE 54276,33 

960 POKE 54273,50 * FOR ZX = 1 TO 50 * NEXT 

* POKE 54276,129 * POKE 54273,233 

* POKE 54272,108 
970 RETURN 

9000 DATA 0,0,0,0,8,0,0,28,0,0,28,0,0,62,0,0,127,0, 

O,127,0,0,127,0,0,127,0,2 
9010 DATA 127,32,2,28,32,7,28,112,2,62,32,6,255, 

176,7,235,240,7, 235,240,15,255 
9020 DATA 248,15,62,120,28,28,60,24,0,12,0,0,0,99 
9030 DATA 0,130,0,64,130,4,112,214,28,120,254,60, 

124,124,124,62,56,248,31,255 
9040 DATA 240,15,255,224,7,255,192,1,255,0,0,254,0, 

12,108,96,6,108,192,7,255,192 
9050 DATA 3,255,128,1,255,0,0,254,0,0,56,0,0,16,0,0, 

16,0,0,16,0,99 

9060 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2,0 

9070 DATA 32,7,0,112,15,128,248,31,193,252,26, 

193,172,18,65,36, 2,0,32,0,0,0 
9080 DATA 0,0,0,2,0,32,99 

9090 DATA 0,0,0,0,0,0,0,0,0,0,1,215,0,0,254,0,0, 

254,0,0,124,0,0,16,0,0 

9100 DATA 16,0,0,16,0,0,124,0,0,56,0,0,16,0,0,16, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9110 DATA 0,0,0,0,0,0,99 

9120 DATA 3,12,0,0,3,0,192,192,195,3,204,192,12,3, 

12,0,12,48,0,51,3,48,51,0 
9130 DATA 3,12,0,0,3,0,192,192,195,3,204,192,12, 

3,12,0,12,48,0,51,3,48,51,0 

9140 DATA 3,12,0,0,3,0,192,192,195,3,204,195,3,204,195,3,204 
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CHEXSUM 

0=4073 44 

1=4460 46 

2 =4072 47 

3=3594 43 

4=4337 49 

5=5383 100 

7=2812 110 

3=2574 120 

9=7217 150 

10=3993 160 

11=1306 170 

12=1343 130 

13=2724 190 

14=2782 195 

15=3010 200 

16=3053 201 

17=1656 202 

18=2374 205 

19=814 206 

20 =2395 2 1 0 : 

21 = 1541 300 : 

22=2931 310' 

23=131 315: 

24=2386 320: 

25=2034 325 

26=4153 330 

27=1334 340 

23=2116 350 

29=4305 300 

30=1234 801 

31=4612 805 

32=1197 810 

35=3074 820 

36=3333 030 

37=1233 340 

38=1371 900 

39=3900 910 

40 =1950 920 

42 = 1763 930 

43=3958 950 


2081 

960=3935 

23 10 

970=143 

964 

9000=3986 

3733 

9010=4328 

472 

9020=2290 

302 

9030=4196 

2402 

9040=4557 

4618 

9050=3223 

3033 

9060=4317 

2289 

9070=3964 

1263 

9080=926 

1125 

9890=3439 

673 

9100=4456 

129 

91 10=863 

35 18 

9120=3912 

2025 

9130=3912 

2616 

9140=2875 

2122 

2345 

TOTAL = 24425 


1963 
302 
2934 
1255 
926 
2034 
2571 
864 
526 
1528 
1772 
1337 
1376 
3898 
1218 
143 
4412 
3900 
1 167 
143 
2433 
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Jelly Maze 



How may points can you get before the jelly creature kills you? 

There are 5 Power Pills in the maze, eat one of these and you will turn 
blue. When you are blue you can eat the jelly creature, but be careful you 
will not remain blue for longer than a few seconds. 

You gain 1 point for moving, 100 points for eating a Power Pill and 500 
points for eating a jelly creature. If you eat one, another will apear. 

Your controls are: 

‘W’ up 
‘X’ down 
‘A’ left 
‘D’ right 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

0 — 8 

DISPLAY SET-UP 

9 — 49 

GET KEYBOARD CHARACTER 

51 

DISPLAY PRESENT SCORE 

51 

UPDATE POSITION OF PLAYER 

52 — 70 

TEST FOR PLAYER COLLISION 

71 

TAKE ACTION ON COLLISION 

72 — 85 

DISPLAY PLAYER AT NEW POSITION 

86 — 93 

MOVE JELLY 

95— 150 

PLAYER EATS JELLY 

1000— 1040 

JELLY EATS PLAYER 

2000—2010 

PLAYER EATS POWER PILL 

5000 — 5010 

DATA 

9000 — 9090 


VARIABLES 

SC = SCREEN REFERENCE POINT 
XI = HORIZONTAL POSITION OF PLAYER 
Y1 = VERTICAL POSITION OF PLAYER 
DM = ACTUAL POSITION OF PLAYER 
DC = ACTUAL POSITION OF COMPUTER 
RELATIVE TO SC 
D = DIRECTION OF PLAYER 
S = PLAYER’S SCORE 
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JELLY MAZE 


0 POKE 55,255 * POKE 56,47 * PRINT " Q" 
i POKE 53280,2 * POKE 53281,0 

1 V = 53248 * POKE V + 22,216 * POKE V + 24,28 

2 POKE V + 34,7 t POKE V + 35,5 

3 FOR I = 12288 TO 12471 * READ Q * POKE I,Q 

* NEXT 

4 FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

5 FOR I = 12672 TO 12751 * READ Q * POKE I,Q * NEXT 

6 POKE 54296,10 * POKE 54276,0 * POKE 54276,33 

* POKE 54278,240 

7 POKE 54273,0 * POKE 54272,0 

8 SC = 1024 ; CS = 55296 * x = 4~Y = 4*D=l 

-A=15~B= 20 s AD - 1 i DI =3 

9 PRINT " £1111111GNNNNNFIIIIIIIIGNNNNFIIIIIIIIIIIII"; 
10 PRINT " 11111G ^ ^ ^ ^ ^ ^ ^ FIIIIIIG ^ ^ ^ ^ ^ 

^ Fimilllllll"; 

12 PRINT *'11116 ^ FIIIIG ^ ^ ^ A ^ 

^ ^ a FIIIIIIIIIII"; 

14 PRINT " IGLM ^ ^ ^ ^ JK ^ A ^ ^ ^ FI IG ^ ^ ^ ^ HE ^ 

^ ^ ^FIIIIIIIIII"; 

15 PRINT "G 4 A A A A A a LM a . * . a A FG A A A A 

HIIE A ^ ^ ^ FIIIIIIIII"; 

18 PRINT "P AAAAAAAAAAAAAAAAAA , 
^ ^ FI IG ^ ^ D ^ A FIIIIIIII"; 

20 PRINT 


FG A A A ^ ^ ^ ^Fimni"; 


22 

^ ^ ^ r u ^ 

PRINT "P A ^ 

▲ ▲ ▲ ▲ 4 

^ ^ HE A ^ 

k A riiiiixi s 

A A . . . . . .JK, 

^ ^ FIIIII I"; 

24 

PRINT "P ^ A 

▲ ▲ ▲ ▲ 4 

^ HGFE ^ ^ 

^ JK A ^ A ^ HIIE ^ ^ ^ 

^ FIIIII"; 


25 PRINT "P A ^ ^ FEHG ^ ^ ^ LM ^ ^ ^ HIGF IE A A ^ ^ 

FI 111“; 

26 PRINT ^ FIEHIG ^ A 


^ ^ HUP ^ ^ ^ ^ ^ HI 111" 5 

28 PRINT "P aaaaaaaaaaaaaaa ^FIIG ^ 
^ D A A FIIP A A ^ ^ HI IIII" ; 

30 PRINT m E aaaaaaaaaaaaaaaaa F6 a 


^ ^ ^ ^ ^ ^ Lh ^ ^ ^ ^ HI mil 1 *; 
32 PRINT "IE 

^ ^ ^ ^ ^ ^ ^ ^ HIIII III" ; 

34 PRINT "IIE^^^^^LM^^^^^ 


HI mini"; 


36 

PRINT "IIIE ^ A 
^ ^ ^ HE A A 

FIIIIIIII"; 

^ JK A ^ , 

* JK 

38 

PRINT "IIIIE A . 
^ ^ ^ FG A A 

^FillIII I"; 

^ LM ^ ^ ^ 

^ LM 

39 

PRINT "IIIIIE A 

^ ^ ^ d ^ fi iiiii"; 

- - - - - 

^ - 

40 

PRINT "IIIIIIE A 

^ ^ A A FIIIII"; 

^ ^ ^ ^ 

- 

42 

PRINT "GNNNNFIP 
^ ^ ^ JK ^ ^ 

^ A F1111" ; 

^ ^ ^ HP ^ 

- - 

43 

PRINT "P A ^ ^ 



^ A PP 


D A A LM A ^ ^ ^ ^ Fill"; 
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44 PRINT 

AAAAAAAAAAAAAAA aFII"; 

45 PRINT "EOOQOHIP . A . A .HE A A A A 4 JK A . A , 

AAAAA^AAAAA .FI"? 

46 PRINT M IIIIIIIEOOOOHIIEOQOHIIEOOOOOOOOOQOOQOOHI“; 

47 FOR I = 960 TO 999 * POKE CS + 1,2 

* POKE SC + 1,9 * NEXT t M=SC+X+Y*40 

* MC = CS + X + Y * 40 

48 POKE MC,4 * POKE MC + 1,4 - POKE MC + 40,4 

* POKE MC + 41,4 

49 POKE M,17 * POKE M + 1,18 - POKE M + 40,19 

t POKE M + 41,20 

50 FOR Z = 1 TO DI 

51 PE = PEEK ( 197 ) 5 PRINT " HMMMKJlfilteltelteJttJ 

Ifi]te![flE!KJK][!ate!tel[fi]E!HL=l ,, S 

52 M = SC + X + Y I 40 t XI = X i Y1 = Y 
55 IF PE < >9 AND PE < >23 AND PE < > 10 

AND PE < > 18 THEN 95 
58 IF PE = 9 THEN Y1 = Y1 - 1 
60 IF PE = 23 THEN Y1 = Y1 + 1 

65 IF PE = 10 THEN XI = XI - 1 

66 WHER* = "MAN" 

70 IF PE = 18 THEN XI = XI + 1 

71 DM = SC + XI + Y1 * 40 * PI = PEEK ( DM ) 

* P2 = PEEK ( DM + 1 ) t P3 = PEEK ( DM + 40 ) 

* P4 = PEEK < DM + 41 ) 

72 IF PI = 4 THEN GOTO 5000 

73 IF P2 = 4 THEN GOTO 5000 

74 IF P3 = 4 THEN GOTO 5000 

75 IF P4 = 4 THEN GOTO 5000 

76 IF PI < 4 THEN 1000 

77 IF P2 < 4 THEN lOOO 

78 IF P3 < 4 THEN lOOO 

79 IF P4 < 4 THEN lOOO 

82 IF PI < 17 THEN POKE 54276,0 * POKE 54276,33 

* POKE 54273,20 * GOTO 95 

83 IF P2 < 17 THEN POKE 54276,0 * POKE 54276,33 

* POKE 54273,20 * GOTO 95 

84 IF P3 < 17 THEN POKE 54276,0 * POKE 54276,33 

t POKE 54273,20 * GOTO 95 

85 IF P4 < 17 THEN POKE 54276,0 * POKE 54276,33 

i POKE 54273,20 * GOTO 95 

86 DC = CS + XI + Y1 * 40 * POKE M,32 

i POKE M + 1,32 J POKE M + 40,32 

* POKE M + 41,32 

87 IF AD = 1 THEN POKE DC,4 * POKE DC + 1,4 

* POKE DC + 40,4 * POKE DC + 41,4 

88 IF AD = - 1 THEN POKE DC,3 * POKE DC + 1,3 

i POKE DC + 40,3 * POKE DC + 41,3 

89 S = S + 1 

90 POKE DM,17 * POKE DM + 1,18 

91 IF D = 1 THEN POKE DM + 40,19 t POKE DM + 41,20 

92 IF D = - 1 THEN POKE DM + 40,21 * POKE DM + 41,22 

93 X = X1 - Y=Y1 - D=—D 

95 POKE 54273,0 * NEXT - A1 = A - B1 = B 

* M = SC + A B * 40 


135 







96 IF RND ( 1 ) < .8 THEN A1 = A1 + < ( A1 > X ) 

- ( A1 < X > ) * AD 

98 DM = SC + A1 + B1 * 40 * PI = PEEK ( DM ) 

i P2 = PEEK < DM + 1 ) * P3 = PEEK ( DM + 40 ) 

; P4 = PEEK ( DM + 41 ) 

99 IF ( PI = 32 OR PI < 5 ) AND ( P2 = 32 OR P2 < 5 

AND ( P3 = 32 OR P3 < 5 ) 

AND ( P4 = 32 OR P4 < 5 ) THEN A = A1 

100 IF A1 < > A AND RND ( 1 ) < .5 THEN A1 = A * A1 

INT ( RND ( 1 ) * 3 ) - 1 * GOTO 98 

101 WHER* = "JELLY" 

104 IF RND ( 1 ) < .8 THEN B1 = B1 + < ( B1 > Y ) 

- ( B1 < Y ) ) * AD 

105 DM = SC + A + B1 » 40 J PI = PEEK ( DM ) 

* P2 = PEEK ( DM + 1 ) * P3 = PEEK ( DM + 40 ) 

i P4 = PEEK ( DM + 41 ) 

106 IF PI > 16 AND PI < 32 THEN 1000 

107 IF P2 > 16 AND P2 < 32 THEN lOOO 

108 IF P3 > 16 AND P3 < 32 THEN 1000 

109 IF P4 > 16 AND P4 < 32 THEN lOOO 

110 IF PI > 255 OR P2 > 255 OR P3 > 255 OR P4 > 255 

THEN lOOO 

111 IF < PI = 32 OR PI < 5 ) 

AND ( P2 = 32 OR P2 < 5 ) AND 
( P3 = 32 OR P3 < 5 ) AND 

( P4 = 32 OR P4 < 5 ) THEN B = B1 

115 IF B1 < > B THEN B1 = B - B1 = B1 + 

INT ( RND ( 1 ) * 3 ) - 1 * GOTO 105 

120 DM = SC + A + B t 40 ; DC = CS + A + B * 40 

130 POKE DC,14 * POKE DC + 1,14 t POKE DC + 40,14 

* POKE DC + 41,14 

135 POKE M,32 * POKE M + 1,32 * POKE M + 40,32 

* POKE M + 41,32 

140 POKE DM,0 * POKE DM + 1,1 J POKE DM + 40,2 

* POKE DM + 41,3 

145 IF NO < >0 THEN NU = NU + 1 

; IF NU = 20 THEN NU = O - AD = 1 

146 IF RND ( 1 ) < .03 AND DI > 1 THEN DI = D1 - 1 

147 IF B = B1 OR A = A1 THEN POKE 54276,0 

; POKE 54276,33 * FOR I = O TO 5 STEP .3 
: POKE 54273,I * NEXT 

148 POKE 54273,0 
150 GOTO 50 

1000 IF AD = 1 THEN 2000 

1001 POKE 54276,0 * POKE 54276,33 * FOR I = O TO 150 

STEP 4 * FOR J = 1 TO 20 * NEXT 

1002 POKE 54273,1 * NEXT * POKE 54273,0 

1004 M = SC + X + Y I 40 i DM=SC+X1+Y1*40 

1005 POKE M, 32 * POKE M + 1,32 * POKE M + 40,32 

i POKE M + 41,32 

1006 POKE DM,32 * POKE DM + 1,32 i POKE DM + 40,32 

* POKE DM + 41,32 

1010 M = SC + A + B I 40 « DM = SC + A1 + B1 * 40 

1015 POKE M, 32 * POKE M + 1,32 * POKE M + 40,32 

i POKE M + 41,32 

1016 POKE DM,32 * POKE DM + 1,32 * POKE DM + 40,32 


) 

= A1 + 
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15 


B = 20 


$ POKE DM + 41,32 
1020 X = 4 - Y = 4 i A = 

1035 S = S + 500 s AD = 1 
1040 GOTO 50 

2000 POKE 54276,0 * POKE 54276,129 * POKE 54273,10 

2001 FOR I = 1 TO 700 * NEXT 

2002 FOR I = 240 TO O STEP - 2 * POKE 54273, I ; NEXT 

2003 POKE 54273,0 

2005 POKE V + 24,20 t PRINT " □ E9HARD ^LINES,THE 
^JELLY ^ CAUGHT ^ YOU!" 

2010 PRINT “ El ffl l=g YOU A SCORED M S"POINTS, El " 

2020 IF S < 200 THEN PRINT "^HA,HA!" 

2030 IF S > 199 AND S < 400 THEN PRINT " 1N0T ^ BAD. " 

2040 IF S > 399 AND S < 800 THEN PRINT "IDSUPER!" 

2050 IF S > 799 THEN PRINT “ HAMAZING!" 

2060 PRINT " El El E3ANOTHER A GO?" 

2070 GET A* t IF A» = "Y" THEN RUN 
2080 IF A$ < > "N" THEN 2070 
2090 PRINT " k. BYE ! " 

2100 END 

5000 S = S + 100 i AD = - 1 * NU = 1 

5002 POKE 54276,0 * POKE 54276,17 * FOR I = 10 TO 50 
* POKE 54273,I * NEXT 
5005 POKE 54273,0 
5010 GOTO 86 

9000 DATA 32,131,47,55,63,63,255,254,8,8,224, 
112,240,240,188,172 

9010 DATA 162,130,136,130,34,34,128,128,44,8,8, 
32,32,8,131,128 

9015 DATA 0,0,4,29,63,29,4,0 

9016 DATA 64,64,208,208,244,244,253,253, 

127,127,31,31,7,7,1,1 

9017 DATA 253,253,244,244,208,208,64,64,1, 

1,7,7,31,31,127,127 

9018 DATA 255,255,255,255,255,255,255,255,0, 

0,0,1,7,31,31,127 

9019 DATA 0,0,0,64,208,244,244,253 

9020 DATA 127,31,31,7,1,0,0,0,253,244,244,208,64,0,0,0 
9022 DATA 85,85,0,0,0,0,0,0,0,0,0,0,0,0,85,85 

9024 DATA 64,64,64,64,64,64,64,64 

9025 DATA 1,3,3,1,1,7,13,25,128,192,192, 

128,128,226,182,156 

9030 DATA 25,49,3,6,12,12,6,30,128,128,192,96, 
56,24,48,0 

9040 DATA 1,3,7,12,24,48,24,48,128,128,192, 
192,96,48,48,240 

9050 DATA 0,60,102,102,102,102,102,60,0,48, 
112,48,48,48,48,124 

9060 DATA 0,60,102,6,12,48,96,126,0,60, 

102,6,28,6,102,60 

9070 DATA 0,6,14,30,102,127,6,6,0,126,96, 

120,6,6,102,60 

9080 DATA 0,60,102,96,124,102,102,60,0,126, 

102,6,12,24,24,24 

9090 DATA 0,60,102,102,60,102,102,60,0,60, 

102,102,62,6,102,60 
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CHEXSUM 




8=2660 

58=1427 

1 15=373 1 

58 18=482 

1=2 139 

68=1473 

128=2693 

9800=3131 

2=1332 

65=1469 

130=2929 

9010=3010 

3=2183 

66=847 

135=2667 

9815=1109 

4=1766 

78=1477 

146=2746 

9016=2958 

5=2898 

71=5999 

145 =3456 

9017=2954 

6=2612 

72=1291 

146=2347 

9018=2938 

7=1 167 

73=1291 

147=4533 

3819=1444 

8=4383 

74=1291 

143=528 

9020=2524 

9=4017 

75=1295 

150=476 

9022=2074 

18=3513 

76=981 

1090=905 

9824=1418 

12=3354 

77=981 

1001=3434 

9025=2852 

14=3334 

78=901 

1002=1365 

9830=2690 

15=3126 

73=905 

1004=2789 

9840=2849 

18=2963 

82=3221 

1005=2667 

9050=2990 

29=2793 

83=3221 

1006=2953 

9068=2686 

22=2797 

84=3221 

1010=2734 

9870=2591 

24=2945 

85=3225 

18 15 =2667 

9888=2881 

25=2989 

86=4186 

1016=2953 

9890=2922 

26=2988 

87=3423 

1020=1582 


28=2942 

88=3638 

1035=1137 

TOTAL = 34220 

38=2771 

89=571 

1040=476 


32=2817 

90=1233 

2000=1963 


34=2931 

31=2226 

2001=964 


36=3113 

32=2418 

2002=2038 


38=3089 

33=1478 

2003=528 


39=2905 

35=3034 

2005=4042 


40=2898 

36=3338 

2010=1913 


42=3052 

38=5958 

2020=1538 


43=2767 

99=5863 

2030=2460 


44=£44S 

100=4472 

2040=2284 


45=2721 

101=1024 

2050=1653 


46=4002 

104=3341 

2060=1144 


47=5707 

185=5932 

2070=1263 


48=2737 

106=1586 

2080=1184 


49=2667 

107=1588 

2090=661 


58=765 

108=1588 

2100=129 


51=1889 

103=1534 

5000=1768 


52=2289 

1 10=3098 

5002=3014 


55=3543 

111=5863 

5005=528 
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Dark Star 



Test your skills against the enemy and the clock! 

The Death Star will obliterate your home planet, when it comes into range 
from behind its moon, using the immense power of its space gun. Before 
this happens you will attempt to take as many attacking enemy fighters 
with you before you are shot down or they shoot your home planet. 

You fly your X wing fighter along the trench on the Death Star engaging 
the enemy in mortal combat, using the ‘Z’ and ‘C’ keys to move left and 
right and M’ to fire. 

Straight Shooting! 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

0— 140 

ROTATE COLOURS, READ KEY 

150 

MOVE PLAYER’S SHIP (TWO SPRITES) 

155— 167 

MOVE PLANET 

170— 175 

CREATE NEW ALIEN SHIP 

180—185 

MOVE ALIEN SHIP 

190 — 215 

ALIEN SHIP FIRES 

217 — 240 

PLAYER FIRES 

250 

SETUP SHOT SPRITE 

251 — 260 

KEEP MOVING SHOT, CHECKING IF IT HITS 
ALIEN SHIP 

265 

TURN OFF SHOT SPRITE, IF HIT 

INCREMENTS SCORE AND BLOW UP 

ALIEN ON SCREEN 

270 — 297 

TIME TO BLOW UP PLANET? 

IF SO THEN BLOW IT UP AND END GAME 

300—325 

GO TO START (150) 

350 

ROTATE COLOURS, (ANIMATE DEATH STAR) 

500 — 505 

GAME OVER, PRINT SCORE, 

ASK IF WANT NEW GAME 

1000—1035 

DATA 

10000 — 20105 
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VARIABLES 

V = VIDEO CHIP 

CO = DIFFERENCE BETWEEN VIDEO AND SCREEN MEMORY 

I, A, J = TEMPORARIES 

B, C, Ml, M2 = COLOUR VALUES 

KB = LOCATION TO GET KEY PRESSED FROM 

PL = PLANET POSITION 

SC = SCORE 

K = KEY PRESSED 

X = POSITION OF PLAYER’ SHIP 

FT = FLAG TO INDICATE IF SHOOTING OR NOT 
P = VALUE OF SPRITE HIGH POSITION REGISTER 

XI = POSITION OF ALIEN SHIP 

DE = VALUE OF COLLISION REGISTER 




SPRITE 

LEFT 

SIDE 

OF 

PLAYER’S 

SHIP 


SPRITE 

RIGHT 

SIDE 

OF 

PLAYER'S 

SHIP 


SrRTTT » P 


SPRITE 

MOON 
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DARK STAR 


O 


1 

2 

3 

5 


6 


8 

9 

10 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

80 

85 

90 

95 

lOO 

105 


POKE 55,255 * POKE 56,47 * V = 53248 

t POKE V + 32,0 • POKE V + 33,5 * CO =» 54272 

* POKE 54296,15 

POKE 54278,128 * POKE 54277,240 * POKE 54276,0 
$ POKE 54276,129 

POKE V + 34,6 * POKE V + 35,5 * POKE 2040,208 

* POKE 2041,209 * POKE 2044,210 * POKE V + 43,11 
POKE V + 2045,212 * POKE 54273,4 * POKE 54272,73 

* POKE 2045,213 

FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

* FOR I = 12288 TO 12367 * READ A * POKE I, A 

* NEXT 

POKE V + 22, PEEK ( V + 22 ) OR 16 

* POKE V + 24,28 * POKE V + 39,14 

* POKE V + 40,14 

FOR I = 13312 TO 13759 * READ A * POKE I, A 

* NEXT * POKE V + 37,2 * POKE V + 38,8 
POKE V + 28,31 * POKE V,160 * POKE V + 1,220 

* POKE V + 2,184 * POKE V + 3,220 

PRINT " Q EJ [ffl ffl M mBBBBBBBBBBBBBBBBEd131<d£>HBBBB 
BBBBBBBBBBBB"; 

PR I NT “AAAAAAAAAAAAAADABIIddI9BAGAAAAAAAAAAAAAA"; 
PRINT " CAABBBBBBBBAAF 


PRINT 
^ F 
PRINT 
BBBB 
PRINT 

PRINT 

PRINT 
▲ ▲ 
PRINT 
PRINT 
PRINT 
PRINT 


C ^ AAAAAAAAAAAA 


11 BBBBBBBBBBBE 



^HBBBBBBB 


* 

" BBBBBBBBBBEB 
BHBBBBBBBBBB"; 

" BBBBBBBBBEBB 
BBHBBBBBBBBB"; 

" A A AA AAA ADBBB 
BBBGAAAAAAAA"5 

" AAAAAAADABBBBBBBBBBBBBBBBBBBBBBAGAAAAAAA”; 
"AAAAAADAABBBBBBBBBBBBBBBBBBBBBBAAGAAAAAA"; 
M AAAAADAAABBBBBBBBBBBBBBBBBBBBBBAAAGAAAAA"; 
" ^ ^ ^ ^ CAAAABBBBBBBBBBBBBBBBBBBBBBAAAAF 


PRINT “ A A lc ^ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
^F A A A 

PRINT M A ^ C ^ A AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
^ ^ F A A ' 

PRINT M A C A 
^ ^ ^ F A ' 

PRINT "E A ^ A A AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
^ ^ ^ ^ H" j 
PRINT "B A A A 
A A A A B H i 
PRINT "B A A 


B"; 


PRINT “B 
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POKE 1,0 


110 POKE 2023 + CO,8 * POKE 2023,2 
115 FOR I = 1024 TO 1223 * POKE I + CO,8 * 

* IF RND ( 1 ) > .9 THEN POKE 1,9 

120 NEXT * POKE 2042,211 t POKE V + 41,11 

i POKE V + 23,36 * POKE V + 29,4 
s POKE V + 4,24 * POKE V + 5,50 

121 FOR I = 1224 TO 2047 * POKE CO + 1,8 J NEXT 

125 POKE V + 42,9 * POKE V + 6,0 * POKE V + 7,60 

$ POKE 2043,212 
130 POKE V + 21,15 

140 B = 5 t HI = 6 « M2 = 5 t KB = 197 * X = 160 

- PL = O J FI = O i SC = O 

150 GOSUB 500 * K = PEEK ( KB ) 

155 X * X + ( K = 12 ) *4- ( K = 20 ) *4 
s IF X < 64 THEN X = 64 
157 IF X > 260 THEN X = 260 
160 P = PEEK ( V + 16 ) 

i IF X > 255 THEN POKE V,X - 256 
c POKE V + 16,P OR 1 s GOTO 165 
162 POKE V,X * POKE V + 16,P AND 254 

165 P = PEEK ( V + 16 ) * X = X + 24 

J IF X > 255 THEN POKE V + 2,X - 256 

* POKE V + 16,P OR 2 * GOTO 170 

167 POKE V + 2,X ^ POKE V + 16,P AND 253 

170 J = 75 ^ IF FI THEN J = 1 

172 X = X - 24 J FOR 1=1 TO J - NEXT 

i PL = PL + .5 i IF PL > 80 THEN PL = 80 

175 POKE V + 6,PL * IF FI > O THEN 190 

180 IF RND ( 1 ) < .9 THEN 250 
185 POKE V + 8,175 * POKE V + 9,90 

; POKE V + 21, PEEK ( V + 21 ) OR 16 J FI = 1 

* XI = PEEK ( V + 30 ) 

190 POKE V + 9, PEEK ( V + 9 ) + 4 

* XI = PEEK ( V + 8 ) 

* IF PEEK < V + 16 ) AND 16 THEN XI = XI + 256 

195 IF PEEK ( V + 9 ) > 234 

THEN POKE V + 21, PEEK ( V + 21 ) AND 239 

* FI = O i GOTO 250 

200 XI = XI - 12 J XI = XI + ( XI > X ) * 2 

- ( XI < X ) I 2 i XI = XI + 12 

205 IF XI > 255 THEN POKE V + 8,X1 - 256 

* POKE V + 16, PEEK < V + 16 > OR 16*G0T0 210 

210 POKE V + 8,XI 

i POKE V + 16, PEEK ( V + 16 ) AND 239 
215 IF PEEK ( V + 30 ) AND 16 THEN 1000 

217 IF RND ( 1 ) < .92 THEN 250 

218 POKE 54290,0 * POKE 54291,12 t POKE 54287,17 

* POKE 54286,37 * POKE 54292,0 * POKE 54290,17 
220 IF XI > 255 THEN POKE V + 10,XI - 256 

* POKE V + 16, PEEK ( V + 16 ) OR 32 i GOTO 225 

222 POKE V + 10,XI 

* POKE V + 16, PEEK ( V + 16 ) AND 223 

225 POKE V + 11, PEEK ( V + 9 ) + 21 i POKE V + 44,8 

* POKE V + 21, PEEK ( V + 21 ) OR 32 

- DE = PEEK < V + 30 ) 

230 DE = O J FOR J = PEEK ( V + 11 ) TO 250 STEP 4 
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* POKE V + 11,J 

* IF PEEK ( V + 30 ) AND 32 THEN DE = 1 

* J = 250 

235 NEXT J * IF DE THEN lOOO 

240 POKE V + 21, PEEK ( V + 21 ) AND 223 

250 IF K < >36 THEN 300 

251 POKE 54290,0 * POKE 54291,12 * POKE 54287,137 

* POKE 54286,43 * POKE 54292,0 * POKE 54290,33 

255 X = X + 12 * IF X > 255 THEN POKE V + 10,X - 256 

* POKE V ♦ 16, PEEK ( V + 16 ) OR 32 « GOTO 260 

257 POKE V + 10,X 

* POKE V + 16, PEEK ( V + 16 ) AND 223 

260 POKE V + 11, PEEK ( V + 1 ) - 42 * POKE V + 44,4 

* POKE V + 21, PEEK ( V + 21 ) OR 32 

i DE = PEEK ( V + 30 ) 

265 DE = O i FOR J = PEEK ( V + 11 > TO 70 STEP - 4 

* POKE V + 11,J 

* IF PEEK ( V + 30 ) AND 32 THEN DE = 1 
i J 3 70 

270 NEXT 3 t X = X - 12 

* POKE V + 21, PEEK ( V + 21 ) AND 223 

* IF DE = O THEN 300 

290 SC = SC + lO t FI = O 

* POKE V + 21, PEEK ( V + 21 ) AND 239 

291 POKE 54290,0 * POKE 54291,133 * POKE 54287,8 

* POKE 54286,147 * POKE 54290,129 
295 POKE 2045,214 * POKE V + 44,2 

* POKE V + 21, PEEK ( V + 21 ) OR 32 

* FOR I = 1 TO lOO * NEXT 
297 POKE 2045,213 

* POKE V + 21, PEEK ( V + 21 ) AND 223 

300 IF PL < 80 OR RND ( 1 ) < .9 THEN 350 

301 POKE 54290,0 * POKE 54291,12 * POKE 54287,137 

* POKE 54286,43 * POKE 54292,0 * POKE 54290,33 

305 POKE V + 44,1 * POKE V + 10, PL * POKE V + 11,69 

* POKE V + 23, PEEK ( V + 23 ) AND 223 

310 POKE V + 21, PEEK ( V + 21 ) OR 32 

i FOR I = 1 TO 500 * NEXT 

311 POKE 54290,0 * POKE 54291,207 * POKE 54287,8 

* POKE 54286,147 * POKE 54290,129 

312 POKE V + 21, PEEK ( V + 21 ) AND 247 

315 POKE V + 44,10 * POKE V + 11, PEEK ( V + 7 ) 

* POKE 2045,214 

* POKE V + 23, PEEK ( V + 23 ) OR 32 

320 POKE V ♦ 29, PEEK ( V + 29 ) OR 32 

* POKE V + 32, PEEK ( V + 33 ) 

* FOR I = 1 TO 4000 * NEXT * POKE V + 32,0 

325 POKE V + 29, PEEK ( V + 29 ) AND 223 

t GOTO 1007 
350 GOTO 150 

500 C = M2 i M2 = Ml * Ml = B * B = C 

505 POKE V + 33, B * POKE V + 34, Ml * POKE V + 35, M2 

* RETURN 

lOOO POKE V + 21, PEEK ( V + 21 ) AND 252 

* POKE V + 10, PEEK ( V ) + 12 

i POKE V + 11, PEEK ( V + 1 ) 
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1002 POKE V. + 32,1 

1003 POKE 54290,0 * POKE 54291,207 * POKE 54287,8 

* POKE 54286,147 * POKE 54290,129 
1005 POKE 2045,214 * POKE V ♦ 44,2 

* POKE V + 21, PEEK < V ♦ 21 ) OR 32 
i FOR I = 1 TO 4000 t NEXT 

1007 POKE V + 32,0 * POKE V + 33,6 
1010 POKE 2045,213 * POKE V + 21,0 

1015 POKE V + 24,20 * PRINT " □ ta.YOU ^ SCORED" ; SC 
1020 PRINT M [fi] M M ffl M 13ANOTHER A GAME?** 

1022 POKE 54276,0 t POKE 54290,0 * POKE 54273,0 

* POKE 54272,0 * POKE 54287,0 * POKE 54286,0 
1025 GET A* * IF A* < > M Y M THEN 1030 

1027 POKE V + 24,28 * POKE 54273,4 * POKE 54272,73 

* POKE 54276,0 * POKE 54276,129 * GOTO 9 
1030 IF A* < > M N M THEN 1025 

1035 POKE V + 22, PEEK ( V + 22 ) AND 239 * END 
lOOOO DATA 255,255,255,255,255,255,255,255,170,170, 

170.170.170.170.170.170 
10005 DATA 85,85,85,85,85,85,85,85 

10010 DATA 1,1,8,8,16,16,128,128,169,169,162,162,154, 
154,42,42 

10015 DATA 86,86,81,81,101,101,21,21,64,64,32,32,4,4,2,2 
10020 DATA 106,106,138,138,166,166,168,168,149,149,69, 
69,89,89,84,84 

10025 DATA 255,255,255,239,255,255,255,255 
20000 DATA 0,0,3,0,0,3,0,0,15,0,0,15,0,0,10,0,128,10, 
2,0,11,20,0,11,22,0,15 

20005 DATA 9,128,13,2,160,37,0,154,170,0,38,170,0,9, 
154,0,2,118,8,10,154 

20010 DATA 32,170,168,42,170,154,42,128,118,40,0,16, 
0,0,0,99 

20015 DATA 0,0,0,0,0,0,192,0,0,192,0,0,128,0,0,128, 

8,0,128,2,0,128,0,80 

20020 DATA 192,2,80,192,9,128,112,42,0,170,152,0,170, 
96,0,153,128,0,118,0,0 

20025 DATA 154,128,128,170,168,32,154,170,160,118,10, 
160,16,0,160,0,0,0,99 

20030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,8,0,128,32,0,32, 

128,0,B,128,0,8,128,32,8 

20035 DATA 128,168,8,170,170,168,174,170,232,138, 

154,136,128,168,8,128,32,8 

20040 DATA 128,0,8,32,0,32,8,0,128,0,0,0,0,0,0,0,0,0,99 
20045 DATA 106,170,0,154,170,128,166,166,128,154,154, 

160.154.106.168.106 

20050 DATA 90,168,170,154,154,166,154,102,169,169, 

100.170.169.153.106.166.106 

20055 DATA 170,102,169,166,154,169,105,170,170, 

154.165.170.154.166.170.106.170 

20060 DATA 168,170,170,168,170,106,152,153,154,96,0, 
0,0,99 

20065 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,2,170,128, 

10,170,240,46,186,152,190 

20070 DATA 250,250,186,250,186,251,250,170,250,254, 

170,174,254,186,170,190,174 
20075 DATA 170,186,174,42,186,168,10,250,160,2,250, 
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128,0,56,0,0,0,0,0,0,0,99 

20080 DATA 0,24,0,0,24,0,0,24,0,0,24,0 

,0,24,0,0,24 

0,0,24, 
20085 DATA 0,24 

0,0,24,0,0,24,0,0,24,0 

,0,0,24,0,0,24,0,0,24,0 

,0,24,0,0,24 

0,0,24, 
20090 DATA 0,24 
20095 DATA 0,0, 

0,0,24,0,0,24,0,0,24,0 

,0,99 

0,0,8,0,0,148,128,0,65, 

0, 1,42,64,2, ( 

0,34,0, 
20100 DATA 112, 

7,73,112 

28,7,7,73,112,0,34,0,2, 

0,32,1,42,64 

0,65,0, 
20105 DATA 0,0, 

0,148,128,0,8,0 

0,0,0,0,0,0,0,0,0,0,0,0 

,0,99 

CHEXSUM 

0=4552 

125=2687 

257=2372 

1=2756 

130=677 

260=5079 

2=4173 

140=3796 

265=5346 

3=2327 

150=1062 

270=364 1 

5=4032 

155=3322 

290=2997 

6=3302 

157=1134 

231=3371 

3=3536 

160=4 176 

295=4134 

9=3536 

162=1457 

297=2331 

10=4301 

165=5184 

390=174 1 

15=3784 

167=1677 

301=3353 

20=3733 

170=1208 

305=3969 

25=2584 

172=3912 

310=2628 

30=2575 

175=1616 

311=3376 

35=3656 

180=1110 

312=1575 

40=3263 

135=4768 

315=4409 

45=3270 

130=4700 

320=4889 

50=3266 

195=4087 

325=2259 

55=3733 

200=4120 

350=526 

60=3792 

285=4154 

500=1765 

65=3731 

210=2378 

585=2444 

70=3337 

215=1494 

1000=4332 

75=3335 

217=1163 

1002=613 

30=3332 

218=3324 

1003=3376 

35=3333 

220=4209 

1005=4198 

30=3338 

222=2447 

1007=1336 

95=3334 

225=5087 

1010=1294 

100=2217 

230=5260 

1015=2374 

105=2106 

235=345 

1020=1395 

1 10=1356 

240=1563 

1022=366 1 

1 15=3663 

250=1024 

1025=1534 

120=4600 

251=3953 

1027=3911 

121=2025 

355=4353 

1030=1184 
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1035=1734 
10000=3734 
10005=1433 
10010=2961 
10015=2606 
10020=3353 
10025=1390 
20000=3769 
20005=3532 
20010=2824 
280 15=3459 
20020=3830 
20025=3726 
20030=3787 
20035=3371 
20040=2527 
20045=3562 
20050=4091 
20055=4201 
20060=2740 
20065=4014 
20070=4136 
20075=3978 
20030=4357 
20035=4357 
28090=536 
20095=3363 
20100=3577 
20105=1836 


TOTAL= 387009 



SPRITE 

HOME 

PLANET 
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Tank Attack 



The aliens are coming again! 

Controlling a laser tank, you must try and stop as many starships as 
possible from landing. If one does land it will release the aliens and fly 
away. 

The starships are protected by a force-field which flickers on and off. 
When blue the craft can be destroyed, when red the force-field protects 
the ship. The starships will attempt to destroy you using guided lasers. 

Your controls are: 

‘Z’ to move the tank left 
‘C’ to move the tank right 
‘M’ to fire your laser 
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PROGRAM STRUCTURE 

LINES 

INITIALIZATION 

(PRINT SURFACE & SPACE SHIP) 

1 — 10 

GET KEY PRESSED 

15 

MOVE LEFT? 

20 

MOVE RIGHT? 

30 

FIRE CANNON? 

50 

HIT SPACE SHIP? 

67 

MOVE SPACE SHIP 

100— 106 

TANK BEING ATTACKED 

145— 170 

SPACE SHIP HIT AND FALLING 

500—520 

TANK UNABLE TO PREVENT LANDING 

1000— 1030 

TANK HIT BY MISSILE 

5000—5070 

CONTINUE GAME 

1040— 1070 


VARIABLES 

P = TANK POSITION 
A = ALIEN POSITION 
PE = KEY PRESSED 
B = BOMB POSITION 
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TANK ATTACK 


O POKE V+55,255 * POKE V + 56,47 * PRINT "a 41 * 
POKE 53281,0 * POKE 53280,0 

1 V = 53248 t POKE 2040,192 i POKE 2041,194 * 

POKE 2042,196 * POKE 2043,197 * POKE 2044,198 

2 POKE V + 39,3 * POKE 0 + 40,2 ~ POKE V + 41,2 * 

POKE V + 42,3 i POKE V + 43,12 * 

POKE V + 28,15 

3 POKE V + 37,8 * POKE V + 38,5 

4 FOR I = O TO 446 * READ Q * POKE 12288 + I,Q t 

NEXT 

5 FOR I = 56136 TO 56295 * POKE 1,9 * 

POKE I - 54272,160 * NEXT * POKE V + 21,31 * 
POKE 54273,0 

6 POKE 54272,0 * POKE 54276,0 * POKE 54277,0 * 

POKE 54278,0 * POKE 54296,15 * POKE 54278,240 

7 POKE 54276,129 * POKE V + 23,0 t POKE V + 29,4 

* P = 110 « POKE V + 1,200 i POKE V + 2, 1 1 

8 POKE V + 5,50 « POKE V + 4,230 * 

A = 150 + INT ( RND < 1 > * 70 > * B = 50 * 

PE = PEEK < V + 30 ) t G = .4 

9 POKE V + 8,0 * POKE V + 9,220 

10 POKE 54273,0 * PE = PEEK ( V + 30 ) 

15 PE = PEEK ( 197 ) 

20 IF PE = 12 AND P > 30 THEN P = P - 3 t 
POKE 2040,192 * POKE 54273,2 
30 IF PE = 20 AND P < 320 THEN P = P + 3 * 

POKE 2040,193 * POKE 54273,2 
35 IF P > 255 THEN POKE V,P - 256 * POKE V + 16, 
PEEK ( V + 16 ) OR 1 J GOTO 50 
40 POKE V,P t POKE V + 16, PEEK ( V + 16 ) AND 254 
50 IF PE < > 36 THEN 100 

60 FOR I = 50 TO O STEP - 2 * POKE 54273,1 * NEXT 
62 X = P - 5 * Y = 192 * D = — 1 * POKE 2041,195 * 
IF PEEK ( 2040 ) = 193 THEN D = 1 c 
X = X + 20 i POKE 2041,194 

65 IF PEEK ( V + 30 ) < > 6 THEN 70 

66 POKE V + 2,0 * POKE V + 3,190 * X =30 i 

FOR 1=0 TO 10 * POKE 54273,1 * NEXT 

67 IF PEEK ( V + 41 ) = 246 THEN GOSUB 500 

68 POKE 54273,0 

70 IF X < 40 OR X > 300 OR Y < 50 THEN X = O * 

Y = O t POKE V + 2,0 * POKE V + 3,192 * 

POKE 54273,0 * GOTO lOO 
80 X=X+D*5- Y = Y — 6 
85 POKE V + 3,Y i IF X > 255 THEN 

POKE V + 2,X - 256 * POKE V + 16, 

PEEK ( V + 16 ) OR 2 i GOTO 95 

90 POKE V + 2,X * POKE V + 16, PEEK ( V + 16 ) 

AND 253 
95 GOTO 65 

100 G = G + .02 - IF RND ( 1 ) < .6 THEN A = A - 3 

101 B = B + G i IF RND ( 1 ) < .1 THEN A = A + 4 

102 IF A > 320 THEN A = 240 
105 IF A < 40 THEN A = 40 
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106 IF A > 255 THEN POKE V + 4,A - 256 * 

POKE V + 16, PEEK ( V + 16 ) OR 4 « GOTO 110 

107 POKE V + 4, A * POKE V + 16, PEEK ( V ♦ 16 ) 

AND 251 

110 POKE V + 5,B * IF RND ( 1 ) < .3 THEN 
POKE V + 41,2 

115 IF RND ( 1 ) < .1 THEN POKE V + 41,6 

120 IF B > 185 THEN 1000 

130 IF RND ( 1 ) < .96 THEN GOTO 10 

140 IF A < P THEN POKE 2041,195 

142 IF A > P THEN POKE 2041,194 

145 FOR I = O TO 40 STEP .4 * POKE 54273,1 - NEXT s 

POKE 54273,0 

146 SH = A - FOR I = B TO 215 STEP 6 

150 IF RND ( 1 ) < .4 THEN 

SH = SH + ( < SH > P ) - < SH < P ) ) * 5 

160 IF PEEK ( V + 30 ) =3 THEN 5000 

161 IF SH > 255 THEN POKE V + 2,SH - 256 t 

POKE V + 16, PEEK ( V + 16 ) OR 2 i GOTO 165 

162 POKE V + 2,SH i POKE V + 16, PEEK ( V + 16 ) 

AND 253 

165 POKE V + 3,I 
170 NEXT 

180 POKE V + 2,0 * POKE V + 3,190 
190 GOTO 10 

200 A = INT ( RND ( 1 ) * 50 ) + 170 * B = 50 * 

X = 30 i POKE V + 29,4 t POKE V + 23,4 

205 POKE V + 16, PEEK < V + 16 ) AND 251 

500 POKE V + 2,0 * POKE V + 3,192 

502 POKE 54273, ( B - 40 ) 

505 G = 6 + .02 t B = B + G - POKE V + 5,B * 

IF B < 205 THEN 502 

506 POKE 54273,2 * POKE V + 29,20 J 

POKE V + 9,B - 5 i POKE V + 4,0 * 

POKE V + 5,0 

507 IF A > 255 THEN POKE V + 8,A - 256 * 

POKE V + 16, PEEK ( V + 16 ) OR 16 * 

GOTO 510 

508 POKE V + 8, A * POKE V + 16, PEEK < V + 16 ) 

AND 239 

510 FOR Z = 10 TO O STEP - .2 * POKE 54273,1 t 

NEXT * A = 150 + INT ( RND ( 1 ) * 70 ) t 

B = 50 - POKE 54273,0 

515 FOR Z = 1 TO 500 * NEXT * POKE V + 29,4 * 

POKE V + 8,0 * POKE V + 9,220 

517 IF A > 255 THEN POKE V + 4,A - 256 * 

POKE V + 16, PEEK ( V + 16 ) OR 4 « GOTO 520 

518 POKE V + 4,A - POKE V + 16, PEEK ( V + 16 ) 

AND 251 

520 POKE V+5,B-G=0* RETURN 

1000 POKE V,0 * POKE V + 1,0 - POKE V + 2,0 * 

POKE V + 3,0 * POKE 54276,0 * POKE 54276,17 

1001 POKE V + 8,0 i POKE V + 9,0 

1005 PRINT " 

THE ^ ALIENS ^ HAVE ^ INVADED" 
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1006 A = A + 10 i FOR T = 1 TO 3 * IF A > 255 THEN 

POKE V + 6,A - 256 * POKE V + 16, 

PEEK ( V + 16 ) OR 8 i GOTO 1010 

1007 POKE V + 6, A * POKE V + 16, PEEK ( V + 16 ) 

AND 247 

1010 FOR I = B TO 205 * POKE V + 7,I * 

POKE 54273,1 - 185 * NEXT I 

1011 FOR I = A TO O STEP - 1 

1012 POKE V + 6,1 * POKE V + 16, PEEK ( V + 16 ) 

AND 247 

1015 POKE 54273,1 * NEXT I,T 

1020 FOR I = B TO 20 STEP - 1 * POKE V + 5, I i 

POKE 54273, INT ( RND ( 1 ) * 200 ) - NEXT 
1025 POKE 54273,0 * POKE 54276,0 * POKE 54276,33 
1030 FOR I = 50 TO 1 STEP - .4 * POKE 54273,1 t NEXT 
t POKE 54273,0 

1040 PRINT " |a| H B H HPLAY ^ AGAIN?" 

1050 GET A$ * IF A$ = "Y" THEN RUN 
1060 IF A* < > "N" THEN 1050 
1070 END 

5000 POKE 54276,0 * POKE 54276,129 * POKE V + 2,0 t 

POKE V + 3,190 

5001 POKE V,0 * POKE V + 1,0 * POKE V + 9,200 

5002 IF P > 255 THEN POKE V + 8,P - 256 t 

POKE V + 16, PEEK < V + 16 > OR 16 : GOTO 5004 

5003 POKE V + 8,P * POKE V + 16, PEEK ( V + 16 ) 

AND 239 

5004 FOR I = 20 TO O STEP -.1 * POKE 54273,1 t NEXT 

* POKE 54273,0 

5005 POKE 54276,0 * POKE 54276,33 

5010 FOR I = 200 TO O STEP - 2 * POKE 54273, I t NEXT 

5020 FOR I = O TO 10 STEP .2 * POKE 54273,1 * NEXT 

5025 POKE 54273,0 * POKE 54276,0 * POKE 54276,17 
5030 FOR I = 10 TO 30 STEP .1 t POKE 54273,1 * NEXT 

5040 FOR I = 50 TO O STEP - -4 * POKE 54273,1 t NEXT 

5050 POKE 54273,0 

5060 B = B + 1 * POKE V + 5, B * POKE 54273,B * 

IF B < 185 THEN 5060 

5065 POKE V,0 * POKE V + 1,0 * POKE 54273,0 
5070 GOTO 1000 

9000 DATA 0,0,0,0,0,0,0,0,0,2,0,0,0,128,0,0 
,128,0,0,32,0,0,8, 8,0,9,8,0,21,8,0 
9010 DATA 21,8,0,85,72,0,85,72,3,255,248,15 
,255,252,51,51,51,51,51,51,15,255,252 
9020 DATA 3,255,240,0,0,0,0,0,0,99 
9030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0 
,0,128,0,0,128,0,2,0,8,9,0,8,21,0,8 
9040 DATA 21,0,8,85,64,8,85,64,11,255,240 

,15,255,252,51,51,51,51,51,51,15,255 
9050 DATA 252,3,255,240,0,0,0,0,0,0,99 
9060 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, 0, O 
9070 DATA 0,10,0,0,38,0,0,38,0,0,38,0,0 
,40,0,0,32,0,0,128,0 
9080 DATA O,O,O,O,O,O,O,O,O,O,O 
,0,0,0,0,0,0,0,0,0,0,99 
9090 DATA O,O,O,O,O,O,O,O,O,O,O 
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9100 


, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
DATA 0,160,0,0,152,0,0,152,0,0, 152 
,0,0,40,0,0,8,0,0,2,0 
9110 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,99 

9120 DATA 0,48,0,0,48,0,0,252,0,0,48,0,3,87 
,0,9,101,128,252,100,124,61,101,240 
9130 DATA 15,155,192,3,255,0,1,253,0,1,49 

,0,4,0,64,16,0,16,136,0,136,0,0,0,0,0,0 
9140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 
9150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
9160 DATA 0,4,0,0,29,0,0,29,0,0 
,4,0,0,4,0,0,34,0,0,34,0 
9170 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,99 

9180 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

9181 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

9182 DATA 0,0,0,0 

9190 DATA 3,7,0,7,223,184,15,255,248,15 
,255,252,63,255,255,255,255,255 
9200 DATA 255,255,255,255,255,255,255,255,255 

CHEXSUM 


0=3255 

85=4668 

200=3856 

1=3935 

90=2306 

205=1572 

2=4408 

95=477 

500=1338 

3=1342 

109=2251 

502=926 

4=2221 

101=2150 

585=3048 

5=4292 

102=1157 

506=3592 

6=3836 

105=1033 

587=3976 

7=4155 

186=3921 

508=2287 

3=5152 

107=2279 

510=4771 

9=1345 

1 10=2240 

515=3147 

10=1640 

1 15=1582 

517=3920 

15=796 

128=951 

518=2279 

20=3202 

130=1490 

520=1164 

30=3254 

140=1250 

1000=3590 

35=3689 

142=1249 

1801=1218 

40=2040 

145=2505 

1805=3754 

50=1 1 15 

146=1536 

1006=5560 

60=1984 

150=3327 

1007=2287 

62=5445 

160=1456 

1010=2780 

65=1525 

161=4139 

1011=1074 

66=3503 

162=2393 

1012=2295 

67=1635 

165=587 

1015=954 

68=528 

170=131 

1020=3595 

70=5454 

180=1338 

1025=1832 

80=1492 

190=472 

1030=2686 
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1040 =1222 

1050 = 1 £63 

1060=1183 

1070=129 

5000=2711 

5001=1730 

5002=4068 

5003=2302 

5004=2683 

5005=1219 

5010=2038 

5020=1860 

5025=1836 

5030=1912 

5040=2831 

5050=528 

5060=2943 

5065=1587 

5070=579 

9000=4158 

9010=4562 

9020=1442 

9030=4138 

9040=4183 

3050=1710 

9060=2329 

9070=2792 

3080=2498 

3090=2329 

3100=2844 

3 1 10=2438 

9120=4270 

9130=4485 

3140=1533 

3150=2329 

9160=2581 

3170=2498 

3180=1830 

3181=1830 

9182=482 

9190=3497 

9200=2083 


TOTAL= 282363 


SPRITE 

PLAYER’S 

TANK 


SPRITE 

PLAYER’S 

MISSILE 


SPRITE 

ALIEN’S 

SHIP 


SPRITE 

ALIEN 
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Star Pilot 



This program also contains some machine code routines. 

In this game you, the Star Pilot, must attempt to get approaching and 
retreating enemy space craft into your sights and blast them. 

The game's objective is to get as many enemy craft as possible within the 
2 minutes playing time allowed. 

‘W’ and ‘X’ control your up and down movement. 

‘A’ and'D’ control your left and right travel. 

‘S’ key is used to fire with. 
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PROGRAM STRUCTURE LINES 

SET UP COLOUR MODE: TURN SOUND ON 1 

READ IN SPRITE DATA 5 

SPRITE 0 = SIGHTS 10 

SPRITE 1 = LEFT MISSILE 
SPRITE 2 = RIGHT MISSILE 
SPRITE 3 = ALIEN 
PUT SIGHTS ON SCREEN 


GIVE X, Y COORDINATES OF SIGHTS (148,108) 15 


MAKE MISSILES MULTI-COLOUR 
MAKE MISSILES RED 

CLEAR SCREEN: GIVE ADDRESS OF 20 

KEYBOARD 

LOAD IN MACHINE LANGUAGE ROUTINE 25 

GET ADDRESSES OF THE 3 MACHINE CODE 

ROUTINES 30 

SET CHARACTER COLOUR TO WHITE 

PLACE STARS RANDOMLY IN BACKGROUND 35 

INITIALIZE TIME = 0 40 

SCORE = 0 

READ KEYBOARD 50 

GET SPRITE COLLISION REGISTER 
MAKE SIGHTS GREEN 


IF SIGHTS AND ALIEN ARE TOUCHING THEN 


MAKE SIGHTS RED 

IF PLAYER DID NOT HIT‘FIRE’THEN 100 52 

SET UP VOICE 1 ON SID CHIP 53 

PUT L AND R MISSILES ON SCREEN 55 — 60 

MOVE MISSILES TOWARDS SIGHTS 65 — 75 
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IF BOTH L AND R MISSILE DID NOT HIT 
ANYTHING THEN 85 

IF ALIEN WAS HIT THE 1000 

MAKE SMALL EXPLOSION SOUND 

PUT EXPLOSION SPRITE INSTEAD OF MISSILE 
ON SCREEN, WAIT, THEN ERASE 

RESTORE POINTER TO MISSILE AGAIN 

IF ALIEN IS ON SCREEN THEN 130 

90% CHANCE EACH TIME ROUND LOOP, OF 
NOT CREATING AND ALIEN IF ONE 
ALREADY THERE. NO ALIEN TO BE 
CREATED THEN 200 

SET RANDOM X, Y, Z OF ALIEN FROM SPACE¬ 
SHIP. THEN PUT ALIEN ON SCREEN, SIZE 
OF ALIEN DEPENDENT ON Z. AREAS 195 — 

199 OF MEMORY CONTAIN DEFINITIONS 
FOR ALIEN SPRITE. 195 — SMALLEST. 199 
— LARGEST. SET ALIEN PRESENT STATUS 
FLAG. 

MOVE ALIEN IN X, Y, Z DIRECTION RANDOMLY 130—175 

IF PLAYER DID NOT HIT DIRECTION KEY THEN 200 
300. IF NO ALIEN PRESENT THEN 232 

MOVE ALIEN RELATIVE TO OUR SPACE SHIP 205 — 230 
IF WE ARE GOING UP THEN MOVE ALIEN 
DOWN, IF WE ARE GOING LEFT THEN MOVE 
ALIEN RIGHT AND VICE VERSA 

IF UP DIRECTION SELECTED, THEN MAKE STAR 232 
FIELD MOVE DOWN RELATIVE TO SPACE 
SHIP. PLACE STAR RANDOMLY AT TOP OF 
SCREEN. GO TO 300. 


75 — 80 

82 

83 

85 — 90 

95 

100 

105 

107—129 
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IF LEFT DIRECTION THEN MOVE STAR FIELD 235 
RIGHT. PLACE STAR RANDOMLY ALONG 
RIGHT-MOST COLUMN. GO TO 300. 

IF RIGHT DIRECTION THEN MOVE STAR FIELD 240 
LEFT. PLACE STAR RANDOMLY ALONG 
LEFT-MOST COLUMN. GO TO 300. 


SCROLL SCREEN UP FOR DEFAULT DOWN 245 — 
DIRECTION. PLACE A STAR RANDOMLY 
ALONG BOTTOM LINE 

IF TIME IS NOT UP THEN 50 300- 

ASK FOR NEW GAME 

IF REPLY = YES THEN GO TO 30 320 

OTHERWISE END 325 

BLOW UP ALIEN. MAKE BIG EXPLOSION 1000 - 

SOUNDS, PLACE EXPLOSION CLOUDS ON 
SCREEN. SET ALIEN PRESENT FLAG = 0 

SPRITE DATA 10000 

DOWN DIRECTION SCROLLING ROUTINE 20000 

RIGHT SCROLLING ROUTINE 30000 

LEFT SCROLLING ROUTINE 40000 



SPRITE 

SIGHTS 


250 

305 


— 1025 

— 10130 

— 20010 
— 30010 
— 40010 
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STAR PILOT 


1 POKE 55,255 ‘ POKE 56,47 * V = 53248 * 

POKE V + 32,12 t POKE V + 33,0 * 

POKE V + 38,5 t POKE 54296,15 
5 FOR I = O TO 638 * READ A * POKE 1024 * 12 + I, A 

* NEXT 

10 POKE 2040,192 * POKE 2041,193 * POKE 2042,194 t 
POKE V + 21,1 * POKE V + 39,5 t POKE V + 23,1 
15 POKE V + 29,9 * POKE V,148 * POKE V + 1,108 * 

POKE V + 28,6 * POKE V + 40,2 * POKE V + 41,2 
i POKE V + 37,8 
20 KB = 197 * PRINT " □" 

25 FOR I = O TO 151 * READ A * POKE 13 * 1024 + I, A 

* NEXT 

30 D = 13 * 1024 t LE = D + 52 J RI = D + 102 * 

FOR I = 55296 TO 56295 * POKE 1,1 * NEXT 
35 FOR 1=1 TO 50 - 

POKE 1024 + RND ( 1 ) * 1000,46 t NEXT 
40 AL = O i TI* = "OOOOOO" * SC = O 

50 K = PEEK ( KB ) * A = PEEK ( V + 30 ) * 

POKE V + 39,5 * IF A = 9 THEN POKE V + 39,2 

52 IF K < >13 THEN 100 

53 POKE 54276,0 * POKE 54273,72 * POKE 54272,169 - 

POKE 54277,143 * POKE 54276,129 
55 POKE V + 2,60 * POKE V + 3,220 * POKE V + 5,220 
60 POKE V + 4,4 * POKE V + 16, PEEK ( V + 16 ) OR 4 

* POKE V + 21, PEEK ( V + 21 ) OR 6 

65 FOR 1 = 1 TO 32 - POKE V + 2, PEEK ( V + 2 ) + 3 

* POKE V + 3, PEEK ( V 3 ) - 3 * 

POKE V + 5, PEEK ( V + 3 ) 

70 A = PEEK < V + 4 > - 3 * IF A < O THEN A = 255 * 

POKE V + 16, PEEK ( V + 16 ) - 4 

72 POKE V + 4,A 

75 A = PEEK ( V + 30 ) * NEXT * POKE V + 21, 

PEEK < V + 21 ) — 6 - B = A AND 2 * 

IF B = O THEN B = A AND 4 
80 IF B = O THEN 85 

82 IF A AND 8 THEN 1000 

83 POKE 54276,0 * POKE 54273,17 * POKE 54277,7 ‘ 

POKE 54276,129 

85 POKE V + 2, PEEK ( V ) + 10 * POKE V + 3, 

PEEK < V + 1 > + 10 * POKE 2041,201 * 

POKE V + 21, PEEK ( V + 21 ) OR 2 

90 FOR 1 = 1 TO 50 • NEXT * POKE V + 21, 

PEEK ( V + 21 ) - 2 
95 POKE 2041,193 
lOO IF AL > O THEN 130 
105 IF RND ( 1 ) > .1 THEN 200 

107 IF PEEK ( V + 16 ) AND A THEN POKE V + 16, 

PEEK ( V + 16 ) - 8 

110 POKE V + 6, RND ( 1 ) * 256 * IF RND < 1 > > . 75 

THEN POKE V + 6, RND < 1 > * 63 * POKE V + 16, 

PEEK ( V + 16 ) OR 8 

115 POKE V + 7, RND ( 1 ) * 200 * Z = INT 

( RND ( 1 ) * 5 ) * POKE V + 42,4 
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120 DZ = INT ( RND (1)95—2)* DY = INT 

( RND (1)95—2)* DX = INT 
( RND (1)95-2) 

121 IF ( DX = O AND DY = O AND DZ = O ) OR 

( DX = O AND DY = O AND DZ > O ) THEN 120 

122 IF Z = O THEN 129 

123 IF PEEK < V + 16 ) AND 8 THEN POKE V + 16, 

PEEK ( V + 16 ) - 8 

124 IF RND ( 1 ) > .5 THEN 127 

125 POKE V +■ 6,2 * IF RND ( 1 ) > .5 THEN 

POKE V + 6,86 J POKE V + 16, PEEK ( V + 16 ) 

OR 8 

126 GOTO 129 

127 POKE V + 7,31 J IF RND ( 1 ) > .5 THEN 

POKE V +■ 7,246 

129 POKE 2043,195 + Z * POKE V + 21, PEEK ( V + 21 ) 

OR 8 * AL = 1 

130 A = PEEK ( V + 7 ) + DY 92* 

IF A < 31 OR A > 246 THEN AL = O * 

POKE V + 21, PEEK ( V + 21 ) - B J GOTO 200 

135 POKE V + 7, A * A = PEEK < V + 6 ) +DX92* 

B = PEEK ( V + 16 ) AND 8 

140 IF ( A < 2 AND B = O ) OR ( A > 86 AND B ) THEN 



AL = 

0 * 

POKE V 

+ 21, PEEK 

( 

V 

+ 21 

) 

- 8 * 


GOTO 

200 








145 

IF A < 

O THEN A = 

255 * POKE 

V 

+ 

16, 




PEEK 

( V 

+ 16 ) 

- 8 






150 

IF A > 

255 

THEN A 

= O * POKE 

V 

+ 

16, 




PEEK 

( V 

+ 16 ) 

OR 8 
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POKE V 


A * Z = 

: Z + DZ / 20 

t 

IF Z 

< 

0 THEN 


AL = 

0 e 

POKE V 

+ 21, PEEK 

( 

V 

+ 21 

) 

- 8 * 


GOTO 

200 
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IF Z > 

4.9 

THEN Z 

= 4.9 * DZ 

- 

- 

INT 




( RND ( 1 

> 9 3 

) 






160 

POKE 2043,195 + Z 







165 

IF RND 

( 1 

) < .9 

THEN 200 






170 

DX = INT ( 

RND ( 1 

) 9 5 - 2 

) 

t 





DY = 

INT 

( RND ( 

1)95- 

2 

) 





IF RND ( 

1 ) > . 

7 THEN DZ = 

= INT 





( RND (1)95-2) 

175 IF DX = O AND DY = O AND DZ = O THEN 170 

200 IF K < > 9 AND K < > 18 AND K < > 23 

AND K < > 10 THEN 300 
203 IF AL = O THEN 232 

205 A = PEEK (V+7) — ( K = 9 ) 98+ 

( K = 23 ) 98 

206 IF A < 31 OR A > 246 THEN AL = O * POKE V + 21, 

PEEK ( V + 21 ) - 8 i GOTO 50 

207 POKE V + 7,A 

210 B = PEEK ( V + 16 ) AND 8 * A = PEEK ( V + 6 ) 

- ( K = lO ) 9 8 + ( K = IB ) 98 

215 IF ( A < 2 AND B = O ) OR ( A > 86 AND B ) 

THEN AL = O : POKE V + 21, PEEK ( V + 21 ) - 8 
* GOTO 200 

220 IF A < O THEN A = 255 * POKE V + 16, 

PEEK ( V + 16 ) - 8 
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POKE V + 16 


225 IF A > 255 THEN A = O * 

PEEK ( V + 16 ) OR 8 
230 POKE V + 6,A 
232 IF K = 9 THEN SYS D * POKE 1024 + 

RND ( 1 ) * 40,46 J GOTO 300 

235 IF K = 10 THEN SYS RI * POKE 1024 + INT 

( RND ( 1 ) * 25 ) * 40, 46 * GOTO 300 

240 IF K = 18 THEN SYS LE * POKE 1063 + 

INT ( RND ( 1 ) * 25 ) * 40,46 i GOTO 300 
245 PRINT " HfflfflfflEltelteJteltelMKlKJtelEJK] 
ISlKJMKKlKIEHfilKlHKia. ^ ^ ^ ^ 


250 POKE 56295,1 - POKE 1984 + RND ( 1 ) * 40,46 
300 IF TI* < *’000200“ THEN 50 

305 PRINT “ H k. TINE ^ UP [S3 M BQ ffl " * PRINT “ Q YOU 
^ SCORED" ; SC * POKE V + 27,255 
310 PRINT '* Iffl [*} £gj [*} [fi WOULD A YOU ^ LIKE ^ ANOTHER 
^ GAME? 1 * 

315 GET A* * IF A* — “Y" THEN POKE V + 21,1 * 

PRINT " Q" * POKE V + 27,0 * GOTO 30 
320 IF A$ < > "N” THEN 315 
325 END 

1000 POKE V + 21,9 * AL = O J POKE V + 2, 

PEEK ( V ) + lO * POKE V + 3, 

PEEK ( V + 1 ) + 10 

1001 POKE 54276,0 * POKE 54273,8 * POKE 54272,47 * 

POKE 54277,76 * POKE 54276,129 
1005 POKE V + 4, PEEK ( V ) * POKE V + 5, 

PEEK ( V + 1 ) * POKE V + 23, PEEK ( V + 23 ) 

OR 4 

1010 POKE V + 29, PEEK ( V + 29 ) OR 4 * 

POKE 2041,200 * POKE 2042,200 
1015 POKE V + 21, PEEK ( V + 21 ) OR 6 i 
FOR A - 200 TO 201 t POKE 2042,A - 
FOR B = 200 TO 201.9 STEP .05 
1020 POKE 54276,0 ~ POKE 54276,129 ^ POKE 2041, B ; 

NEXT B, A * POKE V + 23,1 * POKE V + 29,9 
1025 POKE V + 21,1 * POKE 2041,193 * POKE 2042,194 * 

SC = SC + ( 5 - INT ( Z ) ) «10 * GOTO lOO 

lOOOO DATA 0,0,0,0,0,0,0,0,0,0,28,0,0,255,128,7 
,128,240,12,0,24,16,8,4,32,8,2 
10005 DATA 32,0,2,0,99,0,32,0,2,32,8,2,16,8,4 
, 12,0,24,7,128,240,0,255,128,0,28,0 
10010 DATA 0,0,0,0,0,0,0,0,0,99 

10015 DATA 0,0,0,0,0,0,0,2,128,0,2,128,0,41,128 
,0,41,128,0,150,0,0,150,0,2,86,0 
10020 DATA 2,86,0,2,88,0,2,88,0,9,160,0,9,160,0 
,38,0,0,38,0,0,40,0,0,40,0,0 
10025 DATA 128,0,0,128,0,0,0,0,0,99 
10030 DATA 0,0,0,0,0,0,2,128,0,2,128,0,2,104 
,0,2,104,0,0,150,0,0,150,0 
10035 DATA 0,149,128,0,149,128,0,37,128,0,37,128 
,0,10,96,0,10,96,0,0,152,0,0,152 
10040 DATA 0,0,40,0,0,40,0,0,2,0,0,2,0,0,0,99 
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10045 DATA 0, 0, 0,0,0, 0, 0,0, 0, 0, 0, O, 0, 0,0, O, 0 
,0,0,0,0,0,0,0,0,8,0,0,62,0,0,0,0 
10050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
10055 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
,0,0,0,0,0,8,0,0,28,0,0,255,128 
10060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0, 0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
10065 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
,0,0,34,0,0,28, 0,0, 127,0,3,255,224 
10070 DATA 0,201,128,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0, O, O, 0, 0,0, O, O, O, O, O, 0,0, O, O, O, O 
10075 DATA 99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,99,0,0,28,0,0,62,0,0,247,128 
10080 DATA 7,255,240,31,255,252,1,201,192,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
10085 DATA 0,0,0,0,0,0,0,99 

10090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,128,128,0 
,99,0,0,28,0,0, 127,0,1,227, 192,15 
10095 DATA 255,248,127,255,255,7,156,240,2,0 
,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10100 DATA 0,0,0,0,0,0,0,99 

10105 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32 
,0,0,186,128,10,247,128,47,123,128 
10110 DATA 181,151,224,173,85,120,11,95,248,2 
,222,160,2,222,0,2,222,0,0,190,0 
10115 DATA 0,40,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
10120 DATA 0,0,0,0,0,0,0,2,128,0,138,232,2,239 
,120,11,117,224,45,119,168,47,87 
10125 DATA 254,10,213,94,11,85,248,11,87,160 
,45,221,128,181,221,224,183,223,120 
10130 DATA 46,187,94,8,34,222,0,0,184,0,0 
,32,0,0,0,0,0,0,0,0,0 

20000 DATA 162,192,189,255,6,157,39,7,202,208 
,247,202,189,255,5, 157,39,6,202,208 
20005 DATA 247,202,189,255,4,157,39,5,202,208 
,247,202,189,255,3,157,39,4,202,208 
20010 DATA 247,169,32,157,0,4,232,224,40,208,248,96 
30000 DATA 169,0,133,20,169,4,133,21,160,1,177 
,20,136,145,20,200,200,192,40 
30005 DATA 208,245,136,169,32,145,20,169,40,24 
,101,20,133,20,169,0,101,21,133,21 
30010 DATA 201,7,208,221,165,20,201,232,208,215,96 
40000 DATA 169,0,133,20,169,4,133,21,160,39,177 
,20,200,145,20, 136, 136,192,255 
40005 DATA 208,245,200,169,32,145,20,169,40,24 
,101,20,133,20,169,0,101,21,133,21 
40010 DATA 201,7,208,221,165,20,201,232,208,215,96 
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CHEXSUM 

1=4616 
5=2438 
10=4187 
15=4381 
20=946 
£5=2432 
38=4314 
35=2504 
40=1744 
50=3848 
52=1021 
53=3441 
55=2151 
68=3779 
65=50 10 
78=3881 
72=576 
75=4748 
80=720 
82=831 
83=2568 
85=5103 

90=2544 

85=574 
100=857 
105=1106 
107=2777 
110=5182 
1 15 = 3168 
120=4534 
121=4853 
122=794 
123=2760 
124=1 114 
125=3864 
126=535 
127=2348 
129=2941 
130=5539 
135=3453 

140=4854 


145=2663 
150=2653 
155=5029 
157=2703 
160=839 
165=1106 
178=5554 
175=2052 
208=3239 
£03=868 
205=2592 
£06=3908 
£87=579 
210=4084 
215=4854 
228=2663 
£25=2653 
230=578 
232=2967 
235=3723 
248=3721 
£45=3205 
250=2086 
380=1235 
385=3488 
310=2786 
315=3551 
320=1122 
325=129 
1800=3989 
1081=3284 
1005=3734 
1010=2797 
1815=4559 
1020=3872 
1025=4414 

10000=4030 

10805=4356 
10010=1190 
10015=4257 
10820=3806 


10025=1438 

10030=3358 

18035=4424 

18840=2003 

18045=3980 

18050=3527 

10855=3764 

10860=4222 

10065=4127 

18078=434 1 

10075=3712 

18080=4470 

10085=960 

10890=4266 

10095=4496 

10100=960 

10185=4256 

10118=4073 

10115=1958 

10120=4165 

10125=4288 

10130=2905 

20000=4468 

£8005=4461 

28010=2374 

30800 = 386 1 

30005=4427 

30810=2297 

40000=4039 

40885=4424 

40810=2297 

TOTAL = 34779 1 
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Martian Invasion 



Fly your plane over the city, watching Martian Pods drop from the sky. 

A tripod or a flying machine will hatch out from the crater left by the Pod. 
The tripods shoot at you and the flying machine will try to crash into you. 
All this while a red weed starts growing and crawling. 

You must shoot as many Martians as possible before your inevitable 
defeat. If you crash into a pod you explode, so avoid them. This game has 
excellent graphics and should provide many hours of fun. 

Your controls are: 

‘W’ up 
‘X’ down 
‘A’ left 
‘D’ right 

‘S' to fire your laser 


See how many you can get! 
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PROGRAM STRUCTURE 

INITIALIZATION 
PRINT GROUND/BUILDING 
INITIALIZE VARIABLES/COLOURS 
GET KEY PRESSED 

FACE FIGHTER IN LEFT/RIGHT DIRECTION 

CHECK HORIZONTAL POSITION OF CRAFT 

MOVE CRAFT TO NEW HORIZONTAL/VERTICAL 
POSITION 

PUT POD ON SCREEN 
PUT TRIPOD ON SCREEN 
PRINT FLYING MACHINE 
EXPLODE FLYING MACHINE 
FIGHTER COLLIDED WITH ANYTHING? 

SHELL FIRED? 

MOVE SHELL 
COLLISION OCCURRED? 

EXPLOSION SOUND OF ALIEN 
DESTROY FIGHTER 

DECREMENT NO. OF LIVES LEFT— FINISHED? 
PLAY AGAIN? 

END 


LINES 

0—10 
15 — 45 
50 — 53 

55 

56 — 58 
60 — 75 
80 — 95 

110—115 
150— 170 
250 — 270 
300 
500 
505 

510 — 535 
675 

677—690 
1000—1005 
1035— 1045 
1035— 1045 
1060 
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CO = DIFFERENCE BETWEEN SCREEN AND VIDEO MEMORY 

V = START OF VIDEO CHIP 

A = HOLDS DATA READ IN 

K = CONTAINS LAST KEY PRESSED 

B = HIGH ORDER BIT FOR SCREEN ADDRESSING 

A = POSITION OF FIGHTER CRAFT 

MA = MARTIAN TYPE: 1 = POD; 2 = TRIPOD; 3 = FLYING MACHINE; 

0 = LANDED; -1 = NOT EXISTENT 
X,Y = POSITIONS FOR SPRITES ON SCREEN 
KB = POINTER TO LAST KEY PRESSED REGISTER 
SC = SCORE 
SH = SHELL FIRED FLAG 
I = VARIABLE 



SPRITE 

PLAYER’S 

SHIP 

MOVING 

RIGHT 


SPRITE a 1 


sprite 


ALIEN 

MOVING 

RIGHT 
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MARTIAN INVASION 


O POKE 55,255 * POKE 56,47 - V = 53248 * 

FOR I = 12544 TO 12551 * POKE 1,0 * NEXT * 

CO = 54272 

1 POKE 54296,15 

2 POKE V + 34,11 * POKE V + 35,8 * POKE V + 32,0 t 

POKE V + 33,0 t PRINT 

5 FOR I = 13312 TO 14015 * READ A * POKE I,A * 

NEXT * POKE V + 37,11 * POKE V + 38,5 
10 FOR I = 12288 TO 12375 * READ A * POKE I,A * 

NEXT * POKE V + 22, PEEK ( V + 22 ) OR 16 * 

POKE V + 24,28 

15 PRINT "ElttlttltelteJteltelttltelteJteJteJttlteJtelteltel 

tel tel tel tel [fil tel mbbbbbbbbbbbbbbbbbbbbbbbbbbbb 

BBBBBBBBBBBB"j 

20 PRINT "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" 

5 s POKE 2023,2 * POKE 56295,5 

25 print *• □ □ □ h h H 33 133 «33 n n n n n 113 
3333 □ ii ii ii ii 11333 □ ii ii 11333 □ ii ii ii a 

A H33 □ || ||33 □ || ||33 □ II tel A" ; 

30 PRINT "HHHBBHtelteltel teJA ^ ▲ A tel II II II 

II II II K333333 tel II II II II II 1133333d tel II II II II 

II 1133 a 33 L£ 33“ ; 

35 PRINT “ H H H H 8*333 □ || || ||333 □ || || ||333 □ 

II II 11333 □ || || 11333 □ || ||3 «A □ || || »3 □ 

ii3 tel tel tel tel tel tel ter; 

40 PRINT M H H a A ^ (£333333 1=133 K33 □ II || II II || 

II II II II 113333333333 □ || II || || II H333333 □ II 
II II II II 11333333" i 

45 PRINT “ tel tel tel H ZD33 □ II ||33 U II || L^A" ; 

50 POKE V + 28,3 t POKE V + 39,2 * POKE V,20 - 
POKE V + 1,99 i KB = 197 * POKE V + 16,0 - 
POKE 2042,215 

52 POKE 2040,216 * DI = O * POKE V + 21,1 * 

MA = - 1 i PO = PEEK ( V + 30 ) * PO = O * 

SH = O * RW =0 * Ml =0 

53 SC = O - LI = 3 J PS = O i POKE 54290,0 * 

POKE 54291,0 * POKE 54292,240 

55 K = PEEK ( 197 ) - B = PEEK ( V + 16 ) AND 1 ^ 

A = PEEK <V)+<K*10)*8- 

( K = 18 ) t 8 

56 IF K = 10 THEN DI = 1 

57 IF K = 18 THEN DI = O 

58 POKE 2040,216 + DI 

60 IF A < O AND B THEN POKE V + 16, 

PEEK ( V + 16 ) AND 254 * B = O * A = 248 
65 IF A > 255 AND B = O THEN POKE V + 16, 

PEEK ( V + 16 ) OR 1 i B = 1 : A = O 

70 IF A < 20 AND B = O THEN POKE V + 16, 

PEEK ( V + 16 ) OR 1 ; B = 1 * A = 64 

75 IF A > 64 AND B THEN POKE V + 16, 

PEEK ( V + 16 ) AND 254 » B = O * A = 20 

80 POKE V,A - A = PEEK ( V + 1 ) + ( K = 9 ) 

*8- ( K = 23 ) *8 
85 IF A < 52 THEN A = 52 
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90 IF A > 203 THEN A = 203 

95 POKE V + 1,A * IF MA > - 1 THEN 120 

100 IF RND ( 1 ) > .1 THEN 500 

101 POKE V + 23,0 

105 MA = O J POKE V + 2,20 + RND ( 1 ) * 236 * 

POKE V + 16, PEEK ( V + 16 ) AND 253 

110 IF RND ( 1 ) > .75 THEN POKE V + 16, 

PEEK ( V + 16 ) OR 2 J POKE V + 2, 

RND < 1 ) * 64 

115 POKE V + 3,52 i POKE V + 40,2 * POKE 2041,214 * 
POKE V + 21, PEEK ( V + 21 ) OR 2 J 
POKE 54290,17 

120 ON MA GOTO 150,200,250,300,300,310 

122 X = ( 600 - PEEK < V + 3 ) ) * 25 * 

XI = INT ( X / 256 ) t Y1=X—XI* 256 

123 POKE 54287,XI * POKE 54286,Y1 
125 POKE V + 3, PEEK < V + 3 ) + 8 * 

A = PEEK < V + 3 ) * IF A < = 224 THEN 500 
127 POKE 54276,0 * POKE 54273,5 * POKE 54272,103 * 
POKE 54277,68 * POKE 54276,129 
130 X = PEEK ( V + 2 ) - 20 i 

IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 

132 X = INT ( X / 8 ) + 1944 * POKE X,6 s 

POKE X + 1,32 J POKE X + 2,7 

135 POKE X + 40,8 * POKE X + 42,9 * 

POKE X + CO + 41,13 i POKE X + 41,10 

140 MA = INT ( RND ( 1 > * 3 + 1 ) * POKE V + 40,12 

t IF MA = 3 THEN POKE V + 40,6 * 

CH = INT ( RND ( 1 ) * 5 ) 

142 IF MA < 3 THEN POKE V + 23,2 * POKE V + 3,192 * 

GOTO 145 

143 POKE V + 3,213 

145 CR = X - 39 J RW = O J POKE 54290,0 * GOTO 500 

150 POKE 2041,208 + PO J PO = 1 - PO J 

IF PO = O THEN 400 
155 X = PEEK < V + 2 > - 8 * 

IF PEEK < V + 16 > AND 2 THEN X = X + 256 
160 IF X < 20 THEN MA = 2 * X = 20 * GOTO 500 
165 IF X > 255 THEN POKE V + 16, 

PEEK ( V + 16 ) OR 2 i POKE V + 2,X - 256 * 

GOTO 400 

170 POKE V + 16, PEEK < V + 16 > AND 253 * 

POKE V + 2,X * GOTO 400 
200 POKE 2041,210 + PO i PO = 1 — PO - 
IF PO = O THEN 400 
205 X = PEEK < V + 2 > + 8 * 

IF PEEK ( V + 16 ) AND 2 THEN X = X + 256 

210 IF X > 320 THEN MA = 1 - X = 320 * GOTO 500 

215 IF X > 255 THEN POKE V + 16, 

PEEK ( V + 16 ) OR 2 i POKE V + 2, X - 256 * 

GOTO 400 

220 POKE V + 16, PEEK < V + 16 > AND 253 * 

POKE V + 2,X * GOTO 400 
250 IF PEEK ( V + 3 ) > 150 THEN POKE V + 3, 

PEEK < V + 3 ) - 8 * POKE 2041,213 * GOTO 500 
255 POKE 2041,212 + PO - PO = 1 — PO * 
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X = PEEK < V + 2 ) * IF PEEK ( V + 16 ) AND 2 
THEN X = X + 256 

257 Y1 = PEEK < V + 1 ) * XI = PEEK ( V ) * 

IF PEEK < V + 16 > AND 1 THEN XI = XI + 256 

260 Y = PEEK ( V + 3 > * IF CH < 10 AND RND ( 1 ) 

> .9 THEN CH = CH + 1 

265 IF RND ( 1 ) < CH / 10 THEN X = X + < X > XI > 

*8-<X<Xl)*8* GOTO 275 
270 X = X + INT ( RND < 1 > * 3 - 1 ) * 8 * 

IF X < 20 THEN X = 20 
272 IF X > 320 THEN X = 320 

275 IF RND ( 1 ) < CH / lO THEN Y = Y + < Y > Y1 > 

* 8 - ( Y < Y1 ) I 8 J GOTO 285 

280 Y = Y + INT ( RND ( 1 ) * 3 - 1 ) * 8 * 

IF Y < 52 THEN Y = 52 

285 POKE V + 3,Y * IF X > 255 THEN POKE V + 16, 

PEEK ( V + 16 ) OR 2 * POKE V + 2,X - 256 * 

GOTO 500 

290 POKE V + 16, PEEK ( V + 16 > AND 253 * 

POKE V + 2,X * GOTO 500 

300 POKE 2041,218 - POKE V + 40,2 - MA = MA + 1 * 
GOTO 500 

310 POKE V + 21, PEEK ( V + 21 ) AND 253 * MA = - 1 
i GOTO 500 

400 IF SH < > O OR RND ( 1 ) < .1 THEN 500 
402 POKE 54276,0 * POKE 54273,72 * POKE 54272,169 * 
POKE 54277,79 * POKE 54276,129 

405 SH = — 1 * X = PEEK ( V + 2 ) - 18 i 

IF MA = 2 THEN SH = 1 * X = PEEK ( V + 2 >+18 

406 IF PEEK ( V + 16 > AND 2 THEN X = X + 256 

407 IF X > 255 THEN POKE V + 16, 

PEEK ( V + 16 > OR 4 * POKE V + 4,X - 256 * 

GOTO 410 

408 POKE V + 16, PEEK ( V + 16 > AND 251 * 

POKE V + 4,X 

410 POKE V + 5, PEEK ( V + 3 ) * POKE V + 41,8 * 

POKE V + 21, PEEK ( V + 21 > OR 4 
500 IF PEEK ( V + 30 > AND 1 THEN 1000 
505 IF SH = O THEN 530 
510 X = PEEK ( V + 4 ) + SH * 16 - 

IF PEEK ( V + 16 > AND 4 THEN X = X + 256 
515 IF X < 20 OR X > 320 THEN POKE V + 21, 

PEEK ( V + 21 > AND 251 * SH = O * GOTO 530 
520 IF X > 255 THEN POKE V + 16, PEEK ( V + 16 > 

OR 4 t POKE V + 4,X - 256 * GOTO 530 
525 POKE V + 16, PEEK ( V + 16 ) AND 251 * 

POKE V + 4,X i I = PEEK ( V + 30 > 

530 IF RW > O THEN 550 

535 IF RND < 1 > < .95 OR MA < 1 THEN 600 
540 RW = CR 

550 POKE RW + CO,2 * POKE RW,3 * R1 = RW + INT 
( RND ( 1 > * 3 - 1 ) 

555 IF R1 < 1904 OR R1 > 1943 THEN RW = 0 * 

GOTO 600 

560 POKE R1 + CO, 2 t IF R1 < RW THEN POKE Rl,5 t 
GOTO 575 
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565 IF R1 > RW THEN POKE Rl,4 * GOTO 575 
570 POKE R1,3 
575 RW = R1 

600 IF PS < > O OR K < >13 THEN 650 

602 POKE 54276,0 * POKE 54273,57 - POKE 54272,172 * 
POKE 54277,79 * POKE 54276,129 
605 X = PEEK ( 9 ) + 24 - Y = PEEK ( V + 1 ) + 13 * 
IF PEEK ( 9 + 16 ) AND 1 THEN X = X + 256 
610 PS = 1 i IF DI THEN PS = - 1 * X = X - 48 

615 POKE 9 + 7,Y s IF X > 255 THEN 

POKE 9 + 6,X — 256 * POKE 9 + 16, 

PEEK (9+16) OR 8 - GOTO 625 
620 POKE 9 + 6, X * POKE 9 + 16, 

PEEK ( 9 + 16 ) AND 247 

625 POKE 9 + 42,8 * POKE 2043,215 * POKE 9 + 21, 
PEEK ( 9 + 21 ) OR 8 
650 IF PS = O THEN 675 

655 X = PEEK ( 9 + 6 ) + PS * 12 * 

Y = PEEK ( 9 + 7 ) * IF PEEK ( 9 + 16 ) AND 8 

THEN X = X + 256 

660 IF X < 20 OR X > 320 THEN POKE 9+21, 

PEEK (9 + 21 ) AND 247 * PS = O - GOTO 675 

665 IF X > 255 THEN POKE 9 + 6,X - 256 * 

POKE 9 + 16, PEEK (9 + 16) OR 8 - GOTO 675 
670 POKE 9 + 6, X * POKE 9 + 16, 

PEEK ( 9 + 16 ) AND 247 

675 IF PEEK ( 9 + 30 ) AND 2 THEN 677 

676 GOTO 690 

677 SC = SC + lO i MA = 4 t POKE 9 + 21, 

PEEK (9+21 ) AND 247 - PS = O 

680 POKE 54276,0 * POKE 54273,34 * POKE 54272,75 * 
POKE 54277,74 * POKE 54276,129 
685 POKE 54290,0 
690 GOTO 55 

lOOO POKE 2040,218 * SH = O * POKE 9 + 21, 

PEEK (9 + 21 ) AND 251 * POKE 54276,0 - 
POKE 54277,143 

1005 POKE 54273,3 * POKE 54272,155 * POKE 54276,129 
i FOR I = 1 TO 2000 * NEXT 

1010 LI = LI - 1 J I = PEEK ( 9 + 30 ) * 

POKE 9+21, PEEK (9+21 ) AND 254 t 
POKE 9,20 t POKE 9+1,99 

1012 POKE 9 + 16, PEEK ( 9 + 16 ) AND 254 ~ DI = O 

1015 IF LI >0 THEN POKE 2040,16 * POKE 9 + 21, 

PEEK (9+21 ) OR 1 - I = PEEK ( 9 + 30 ) * 

GOTO 55 

1017 POKE 54273,0 * POKE 54272,0 * POKE 54287,0 * 
POKE 54286,0 

1020 POKE 9 + 24,20 * POKE 9 + 21,0 J PRINT " Q lag 
HARD ^ LINES" 

1025 PRINT '' B Ej M ffl MYOU ^ SCORED" 5 SC 

1030 PRINT " KJ M El THE ^ MARTIANS ^ WILL ^ 09ER ^ RUN 
^ EARTH" 

1035 PRINT "EJ El El M ANOTHER ^ GAME?" 

1040 GET A* * IF A* = "Y" THEN POKE 9 + 24,28 * 

PRINT " Q" 5 * GOTO 15 
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1045 IF A* < > "N" THEN 1040 

1050 POKE V + 22, PEEK ( V + 22 ) AND 239 

1060 END 

lOOOO DATA 3,192,0,0,64,0,1,64,0,1,80,0,3,84,0 
, 15,85,64,5,85,80,5,85,80,1,85,64 
10005 DATA 1,85,0,0,252,0,0,136,0,2,10,0,8,0,128 
, 32, 0,32,32,O,8,32,O,8,32,0, 8 
10010 DATA 32,0,8,32,0,8,136,0,34,99 
10015 DATA 60,0,0,4,0,0,20,0,0,21,0,0,53,64,0,245 
,84,O,85,85,O,85,85,O 

10020 DATA 21,84,0,21,80,0,15,192,0,8,128,0,8,128 
,0,32,32,0,32,32,0,128,8,0 
10025 DATA 128,8,0,32,8,0,32,8,0,8,8,0,34,34,0,99 
10030 DATA 0,3,192,0,1,0,0,1,64,0,5,64,0,21,192 
, 1,85,240,5,85,80,5,85,80, 1,85,64 
10035 DATA 0,85,64,0,63,0,0,34,0,0,160,128,2,0 
,32,8,0,8,32,0,8,32,0,8,32,0,8 
10040 DATA 32,0,8,32,0,8,136,0,34,99 
10045 DATA 0,0,60,0,0,16,0,0,20,0,0,84,0,1,92,0 
,21,95,0,85,85,0,85,85,0,21,84 
10050 DATA O,5,84,0,3,240,0,2,32,0,2, 32,0, 8, B,0 
,8,8,0,32,2,0,32,2,0,32,8,0,32,8 
10055 DATA 0,32,32,0,136,136,99 
10060 DATA 0,0,0,0,0,0,0,0,0,64,0,4,20,0,80,1 
,1,0,0,68,0,0,32,0,0,32,0,0,168,0 
10065 DATA 2,102,0,2,170,0,3,239,0,2,238,0,0 
,168,0,0,168,0,0,100,0,1,205,0 
10070 DATA 4,0,64,4,0,64,17,1,16,99 
10075 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, 0, 1, 1 
,0,4,68,64, 16,32, 16,64,32,4,0, 168,0 
10080 DATA 2,102,0,2,170,0,3,239,0,2,238,0,0 
,168,0,0,168,0,0,100,0,1,205,0 
10085 DATA 4,0,64,4,0,64,17,1,16,99 
10090 DATA 0,0,0,0,0,0,0,0,0,192,32,12,48,32 
,48,12,32,192,3,35,0,0,84,0,0,84,0 
10095 DATA 170,86,168,170,86,168,0,84,0,0,84 
,0,3,35,0,12,32,192,48,32,48 
10100 DATA 192,32,12,0,0,0,0,0,0,0,0,0,0,0,0,99 
10105 DATA 255,204,255,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
101lO DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 99 
10115 DATA 0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,12,0,0,15,0,0 
10120 DATA 15,195,192,15,255,240,42,170,170 
,2,250, 168,O,254,0,0,252,O,3, 240, O 
10125 DATA 3,192,0,3,0,0,0,0,0,99 
10130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,O,O,O,0,0,O,O,48,0, O, 240 
10135 DATA 3,195,240,15,255,240,170,170,168,42 
, 175, 128,0,63,0,0,63,0,0,15,192 
10140 DATA 0,3,192,0,0,192,0,0,0,99 
10145 DATA 0,0,0,0,8,0,2,8,8,0,8,32,0,42,128 
,O,174, 160,2,239,128,42,255, 160 
10150 DATA 11,255,224,2,255,224,2,255,128,2 
,190,0,8,186,128,0,184,32,0,40,0 


171 



10155 DATA 0,32,0,32,32,0,0,0,128,2,0,2,0,0,0,0,0,0,99 
10160 DATA 255,195,195,195,195,195,195,255,60 
,60,24,126,24,24,102,102 
10165 DATA 255,255,255,255,255,255,255,255,12 
,51,192,48,12,51,51,192 

10170 DATA 0,0,192,48,204,6,3,0,0,0,0,3,12,48,207,0 
10175 DATA 0,0,0,128,128,192,224,240,0,0,0,0,1 
,1,1,3,240,248,252,252,252,252 
10180 DATA 254,255,3,3,7,7,15,31,127,255,0 
,105,85,85,85,85,85,255 


CHEXSUM 


0 =4223 

1 £0 =1950 

290=2918 

1=595 

1 ££ =3947 

300=2791 

£=3411 

1 £ 3=1344 

310=2890 

5=3647 

1 £ 5=3549 

400=1356 

10=4656 

1 £ 7=3331 

402=3378 

15 = 5 £ 5 £ 

130 = 3£14 

405=4348 

£ 0=4931 

13 £ =3088 

406=1905 

£ 5=8416 

135 = 3£4 1 

407=3956 

30 = 631 £ 

140=4996 

408=2263 

35=7096 

14 £ =£760 

410=3447 

40=804 1 

143=676 

500=1444 

45=1905 

145 =£466 

505=870 

50=4595 

150 =£ 76 £ 

510=3607 

5 £ =5663 

155=3158 

515=4125 

53 = 333 £ 

160 =£ 165 

520=3956 

55=4534 

165 = 395 1 

525=3311 

56=1056 

170 =£ 917 

530=832 

57=1063 

£00 =£763 

535=1739 

58=904 

£ 05=3158 

540=507 

60=3398 

£ 10 = ££60 

550=3148 

65=3575 

£ 15=3951 

555=2687 

70=3571 

££0 =£ 917 

560=2683 

75=3413 

£ 50=4023 

565=1818 

80=3103 

£ 55=4888 

570=333 

85=1036 

£ 57=3944 

575=483 

90=1 154 

£ 60=3383 

600=1824 

95=1691 

£ 65=4201 

602=3384 

100=1111 

270=3040 

605=4352 

101=618 

£ 7 £ =1192 

610=2250 

105 = 365 £ 

275=4210 

615=4736 

110=3799 

280=3048 

620=2310 

115 = 43£4 

285=4744 

625=2931 
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650=385 

10080=3711 

655=4636 

10035=1425 

660=4141 

10030=4157 

665=3966 

10035=3561 

670=2310 

10100=21 IS 

675=1334 

10105=4353 

676=533 

10 1 10=3763 

677=3514 

19 1 15=4032 

630=3331 

10128=4053 

635=533 

16125=1326 

690=477 

19130=4205 

1000=4131 

10135=4085 

1805=3207 

10140=1453 

1010=4756 

10145=3334 

1012=2051 

10150=3318 

1015=4533 

18 155=2477 

1017=2333 

10160=3336 

1020=2746 

10165=3301 

1025=1403 

10170=2360 

1030=3018 

10175=3322 

1035=1473 

1040=2371 

10180=3121 

1045=1182 

1050=1573 

1060=129 

TOTAL = 4005' 


10000=4313 
10005=4065 
10010=1477 
10015=3407 
10020=3805 
10025 =£246 
10030=4426 
10035=3333 
10040=1477 
10045=4041 
10050=4273 
10055=1213 
10060=4112 
10065=371 1 


10070=1425 

10075=4252 
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Castle of Doom 



Explore the rooms within the castle walls, look for treasure and try 
to avoid the slime monsters and killer robots. 

Points are gained by moving over question marks and killing monsters or 
robots with your Proton gun. 

As you move off the screen from one room you are presented with 
another. Move back and you return to the same room but now with 
different contents! 

You are killed if you touch the electrified walls or any of the monsters. 
Some monsters are faster than others and the robots are very 
dangerous. 

Controls are: 

W’ up ‘D’ right 

‘X’ down ‘A’ left 

S’ to fire your gun 
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PROGRAM STRUCTURE 


LINES 


INITIALIZATION 

READ KEY PRESSED, GET POSITION OF PLAYER 

MOVE PLAYER HORIZONTALLY, CHECKING FOR 
DOORS 

MOVE PLAYER VERTICALLY, CHECKING FOR 
DOORS 

CHECK IF PLAYER HIT WALL OR MONSTER 
OR QUESTION MARK 

INCREASE SCORE IF HIT QUESTION MARK 

HAS PLAYER FIRED? 

SET UP SHOT 

MOVE SHOT UNTIL HITS SOMETHING OR 
DISAPPEARS. IF HIT WALL EXIT, IF HIT 
MONSTER INCREASE SCORE AND EXIT 

TURN OFF SHOT SOUNDS 

IF MONSTER ONE EXISTS THEN MOVE IT 

IF MONSTER TWO EXISTS THEN MOVE IT 

TO MAIN LOOP AGAIN 

SUBROUTINE TO GENERATE NEW ROOM, CREATE 
TWO NEW MONSTERS AND A QUESTION MARK 
(RANDOMLY) 

PLAYER KILLED, IF NO. OF LIVES LEFT 
EQUALS 0 THEN END GAME. 

ASK PLAYER IF WANT TO PLAY AGAIN 

DATA 


0 — 50 
55 

56—70 

75 — 80 

80—110 

115— 125 

150 

151 — 162 
170— 198 

199 

200 — 290 
300 — 390 
400 

1000 — 1200 

2000 — 2025 

1000 — 12120 


175 



VARIABLES 

V = VIDEO CHIP 
R = ROOM NUMBER 
LI = LIVES LEFT 
SC = SCORE 

KB = PLACE TO READ KEY PRESSED FROM 
K = KEY PRESSED 

I, A, B, U, X, Y, YX, YY, B$, DS = TEMPORARY STORAGE 
SI, S2 = OFFSET TO MOVE MONSTERS 
Dl = DIRECTION OF MOVEMENT 
B = HIGH X— BIT FOR SPRITES 
SH = SHOT IN PROGRESS 
Ml = TYPE OF MONSTER 1 
M2 = TYPE OF MONSTER 2 
A$ = CONTAINS ROOM DATA 



PLAYER 



SPRITE 

CREATURE 2 



SPRITE 

CREATURE 1 



SPRITE 

CREATURE 3 
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CASTLE OF DOOM 


O POKE 55,255 * POKE 56,47 * V = 53248 * 

FOR I = 12544 TO 12551 * POKE 1,0 * NEXT * 

POKE V + 32,0 

1 POKE V + 33,0 * FOR I = 12288 TO 12319 * READ A 

* POKE I, A * NEXT * POKE 54296,15 

2 POKE V + 24,28 * POKE V + 22, PEEK < 9 + 22 > 

OR 16 * PRINT ” * FOR I = 12352 TO 12991 t 

READ A * POKE I,A 

3 NEXT * POKE V + 37,10 * POKE V + 38,5 

5 DIM A* < 24 ) * R = 0 * POKE 54278,0 * 

POKE 54292,0 

lO FOR 1=0 TO 24 * READ A* ( I ) * NEXT * 

LI = 3 * KB = 197 • SC = O 

15 POKE V + 16,0 * POKE 9,150 ^ POKE V + 1,120 * 

POKE V + 39,6 * POKE V + 28,15 * 

POKE 2040,193 * DI = O 
20 POKE V + 40,2 
50 GOSUB lOOO * SH = O 

55 K = PEEK ( KB ) * A = PEEK < 9 ) + < K = lO > 

* 8 - ( K = 18 ) * 8 t B = PEEK ( 9 + 16 > AND 1 

56 IF K = 10 THEN DI = 1 

57 IF K = 18 THEN DI = O 

58 POKE 2040,193 + DI 

60 IF A < O AND B THEN B = O * A = 252 

65 IF A > 255 AND B = O THEN B = 1 * A = O 

67 IF B AND A > 60 THEN POKE V + 16, 

PEEK ( V + 16 ) AND 254 * POKE 9,20 * 

R = R + 1 * GOTO 50 

68 IF B = O AND A < 20 THEN POKE 9 + 16, 

PEEK <9+16) OR 1 - POKE 9,60 * R = R - 1 
i GOTO 50 

70 POKE 9, A * POKE 9 + 16, PEEK (9+16) OR B t 

IF B = O THEN POKE 9 + 16, PEEK < 9 + 16 ) 

AND 254 

75 A = PEEK <9+l) + <K = 9)*8- 
< K = 23 ) * 8 

77 IF A < 52 THEN POKE 9 + 1,220 * R = R + 5 - 

GOTO 50 

78 IF A > 220 THEN POKE 9+ 1,52 * R=R-5 * 

GOTO 50 

80 POKE 9 + 1,A * IF PEEK <9 + 31 ) AND 1 
THEN 2000 

85 IF PEEK < 9 + 30 ) AND 1 THEN 95 
90 GOTO 150 

95 IF PEEK < 9 + 30 ) > 128 THEN 115 

100 IF PEEK < 9 + 30 ) AND 8 THEN 2000 

HO IF PEEK < 9 + 30 ) AND 4 THEN 2000 

112 GOTO 150 

115 SC = SC + INT < RND < 1 ) * 5 + 1 ) * 50 

125 POKE 9+21, PEEK ( 9 + 21 ) AND 127 * T = - 1 

150 IF K < >13 THEN 200 

151 POKE 54276,0 * POKE 54277,204 t POKE 54273,137 

* POKE 54272,43 * POKE 54276,33 

152 POKE 54290,0 * POKE 54291,136 * POKE 54287,69 i 
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POKE V + 16, PEEK ( V + 16 ) AND 253 

153 POKE 54286,149 * DS = 8 * SH = 1 * 

X = PEEK ( V ) + 24 * IF PEEK ( V + 16 ) 

AND 1 THEN X = X + 256 

154 POKE 54290,17 * IF DI THEN DS=—8 * X = X - 48 

155 B = 0 t IF X > 256 THEN B = 2 * x=X- 256 

160 POKE V + 2,X i POKE V + 3, PEEK ( V + 1 ) * 

POKE V + 16, PEEK ( V + 16 ) OR B ; 

POKE 2041,195 + DI 

162 POKE V + 21, PEEK ( V + 21 ) OR 2 

170 A = PEEK < V + 2 ) + DS * B= PEEK ( V + 16 ) 

AND 2 ; IF A < O AND B THEN A = 248 - B - O 

175 IF A > 255 AND B = O THEN B = 2 - A = O 

180 POKE V + 2,A « POKE V + 16, PEEK ( V + 16 ) OR B 

i IF B = O THEN POKE V + 16, PEEK ( V + 16 ) 

AND 253 

185 IF PEEK ( V + 31 ) AND 2 THEN POKE V + 21, 

PEEK ( V + 21 ) AND 253 * GOTO 199 

190 IF ( A < 20 AND B = O ) OR ( A > 60 AND B ) 

THEN POKE V + 21, PEEK ( V + 21 ) AND 253 * 

GOTO 200 

191 U = PEEK ( V + 30 ) * IF ( U AND 128 ) THEN 

IF ( U AND 2 ) THEN 198 

192 IF U AND 2 THEN 194 

193 GOTO 198 

194 IF ( U AND 4 ) AND Ml < 5 THEN POKE V + 21, 

PEEK ( V 21 ) AND 253 * SH = O * 

SC = SC + Ml I 10 i Ml = 5 * GOTO 199 

195 IF ( U AND 8 ) AND M2 < 5 THEN POKE V + 21, 

PEEK ( V + 21 ) AND 253 * SH = O * 

SC = SC + M2 * 10 * M2 = 5 * GOTO 199 

198 GOTO 170 

199 POKE 54276,0 * POKE 54277,72 * POKE 54273,4 * 

POKE 54272,73 * POKE 54276,129 

200 IF Ml = O THEN 300 

205 X = PEEK ( V + 4 ) * Y = PEEK ( V + 5 ) * 

IF PEEK ( V + 16 ) AND 4 THEN X = X + 256 

210 YX = PEEK ( V ) « YY = PEEK ( V + 1 ) * 

IF PEEK ( V + 16 ) AND 1 THEN YX = YX + 256 

212 IF Ml >4 THEN 275 
215 IF Ml = 4 THEN 250 

220 IF Ml = 3 AND RND ( 1 ) > .3 THEN 250 

225 XI =* X + ( X > YX > * SI — ( X < YX ) * SI - 

Y1 = Y + ( Y > YY ) * SI - ( Y < YY ) * SI 

227 IF XI > 255 THEN XI = XI - 256 * POKE V + 16, 
PEEK ( V + 16 ) OR 4 i GOTO 235 
230 POKE V + 16, PEEK ( V + 16 ) AND 251 
235 POKE V + 4, XI * POKE V + 5,Y1 
247 GOTO 300 

250 XI = X + INT ( RND ( 1 ) I 3 - 1 ) I SI « 

Y1 = Y + INT ( RND ( 1 ) * 3 - 1 ) * SI 

251 IF XI < 20 OR XI > 320 OR Y1 < 52 OR Y1 > 220 

THEN XI = X i Y1 = Y 

255 POKE V + 16, PEEK ( V + 16 ) AND 251 * 

IF XI > 255 THEN XI = XI - 256 * POKE V + 16, 
PEEK ( V + 16 ) OR 4 
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POKE V + 5,Y1 


260 POKE V + 4,X1 * 

270 GOTO 300 
275 IF Ml = lO THEN 290 

280 POKE V + 41,1 i POKE V + 28, PEEK < V + 28 > 

AND 251 t Ml = HI + 1 t GOTO 300 
290 POKE V + 28, PEEK ( V + 28 ) OR 4 - Ml = O - 
POKE V + 21, PEEK ( V + 21 ) AND 251 
300 IF M2 = O THEN 400 

305 X * PEEK < V + 6 > * Y = PEEK < V + 7 ) * 

IF PEEK ( V + 16 ) AND 8 THEN X = X + 256 

310 YX = PEEK ( V ) - YY = PEEK ( V + 1 ) * 

IF PEEK ( V + 16 ) AND 1 THEN YX = YX + 256 

312 IF M2 > 4 THEN 375 
315 IF M2 = 4 THEN 350 

320 IF M2 = 3 AND RND ( 1 ) > .3 THEN 350 
325 XI = X + ( X > YX ) * S2 - ( X < YX ) I S2 J 

Y1 = Y + ( Y > YY ) * S2 - ( Y < YY ) * S2 

327 IF XI > 255 THEN XI = XI - 256 * POKE V + 16, 
PEEK ( V + 16 ) OR 8 i GOTO 335 
330 POKE V + 16, PEEK < V + 16 ) AND 247 
335 POKE V + 6, XI * POKE V + 7,Y1 
347 GOTO 400 

350 XI = X + INT ( RND ( 1 ) * 3 - 1 ) * S2 * 

Y1 = Y + INT < RND < 1 ) * 3 - 1 > * S2 

351 IF XI < 20 OR XI > 320 OR Y1 < 52 OR Y1 > 220 

THEN XI = X J Y1 = Y 

355 POKE V + 16, PEEK < V + 16 > AND 247 5 

IF XI > 255 THEN XI = XI - 256 * POKE V + 16, 
PEEK ( V + 16 ) OR 8 
360 POKE V + 6, XI * POKE V + 7,Y1 
370 GOTO 400 
375 IF M2 = lO THEN 390 

380 POKE V + 42,1 * POKE V + 28, PEEK < V + 28 ) 

AND 247 ± M2 = M2 + 1 * GOTO 400 
390 POKE V + 28, PEEK ( V + 28 ) OR B i M2 = O i 

POKE V + 21, PEEK (9+21 ) AND 247 

400 GOTO 55 

lOOO A* = A* ( R ) * B* = n 0000" * PRINT " □" * 

POKE V + 35,8 + INT ( R / 5 ) < POKE V + 21,0 
* FOR I = 1 TO 20 

1005 IF LEN ( A* ) > = 4 THEN B* = LEFT* ( A*,4 > * 

A* = RIGHT* ( A*, LEN ( A* ) - 4 ) 

1010 PRINT “H"! TAB ( < I - 1 ) * 2 ) « • 

D = VAL ( LEFT* ( B*,2 ) ) * 

U = VAL ( RIGHT* ( B*,2 ) ) 

1015 IF D = O THEN 1025 

1020 FOR J = 1 TO D i PRINT M S>A LSI II II ” 5 - NEXT 

1025 PRINT “ 

i TAB ( ( I - 1 ) * 2 ) 

1030 IF U > O THEN FOR J = 1 TO U - PRINT "3A □ II II 
5 5 NEXT 

1035 NEXT I * T = - 1 * IF RND ( 1 ) < .6 THEN 1065 

1037 T = O * POKE V + 14,100 + RND ( 1 ) * 150 

1040 POKE V + 15,100 + RND < 1 ) * 50 « POKE V + 16, 

PEEK ( V + 16 ) AND 127 * POKE V + 46,2 

1045 POKE V + 29, PEEK < V + 29 ) OR 128 s 
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POKE 2047,197 * IF KE THEN 1055 
1055 POKE V + 21,128 * I = PEEK < V + 31 ) + 

PEEK ( V + 31 ) + PEEK ( V + 31 ) 

1060 IF PEEK ( V + 31 ) AND 128 THEN T = — 1 * 

POKE V + 21,0 

1065 POKE V + 21, PEEK ( V + 21 ) OR 1 J 

I = PEEK ( V + 31 ) * I = PEEK ( V + 30 ) 

1070 Ml = O t M2 = O i IF RND ( 1 ) < .3 THEN 1110 

1072 POKE V + 4, RND ( 1 ) * 236 + 20 * POKE V + 5, 

RND ( 1 ) * 168 + 52 
1075 Ml = INT ( RND < 1 > * 4 + 1 > * 

POKE 2042,198 + Ml J POKE V + 41,6 * SI = 2 
1080 IF Ml = 2 THEN POKE V + 41,11 * SI =6 

1085 IF Ml = 3 THEN POKE V + 41,9 * SI = 4 

1090 IF Ml = 4 THEN POKE V + 41,14 * SI = 4 

1100 POKE V + 21, PEEK ( V + 21 ) OR 4 i 

I = PEEK ( V + 31 ) 
lllO IF RND ( 1 ) < .3 THEN 1150 
1112 POKE V + 6, RND ( 1 ) * 236 + 20 i 

POKE V + 7, RND ( 1 ) * 168 + 52 

1115 M2 = INT ( RND < 1 ) * 4 + 1 > * 

POKE 2043,198 + M2 i POKE V + 42,6 * S2 = 2 
1120 IF M2 = 2 THEN POKE V + 42,11 * S2 = 6 

1125 IF M2 = 3 THEN POKE V + 42,9 * S2 = 4 

1130 IF M2 = 4 THEN POKE V + 42,14 * S2 = 4 

1135 POKE V + 21, PEEK ( V + 21 ) OR 8 - 

I = PEEK ( V + 31 ) 

1150 PRINT N 

* FOR 1 = 1 TO LI - 

PRINT " «B A ”5 * NEXT 

1155 POKE V + 28,15 
1200 RETURN 

2000 POKE V + 28, PEEK ( V + 28 ) AND 254 * 

POKE 54276,0 * POKE 54277,143 * POKE 54273,34 

2001 POKE 54272,75 * POKE 54276,129 * POKE V + 39,1 

FOR I = 1 TO 2000 * NEXT 

2004 POKE V,150 * POKE V + 1,120 

2005 POKE V + 28, PEEK ( V + 28 > OR 1 * 

POKE V + 39,6 i POKE V + 21,O * LI = LI - 1 * 
R = O * IF LI > O THEN 50 

2010 POKE V + 24,20 * PRINT " Q S3 HARD A LINES, A YOU 
^ WERE ^ KILLED” 

2012 PRINT ” H3 EJ M ffiYOU A SCORED”SC 
2015 PRINT "ffllfi! SB ANOTHER A GAME ^ ?" 

2017 POKE 54273,0 * POKE 54272,0 * POKE 54287,0 * 
POKE 54286,0 

2020 GET A* * IF A$ = "Y" THEN SC = O * LI = 3 - 
POKE V + 24,28 * GOTO 15 
2025 IF A$ < > "N" THEN 2020 
2030 END 

10000 DATA 255,234,234,234,234,234,234,255,255 
,171,171,171,171,171,171,255 
10005 DATA 24,24,255,24,60,108,108,108,0,6,249,70,0 
,0,0,0 

HOOO DATA 0,0,0,0,21,0,0,21,0,0,4,0,0,170,0,2 
,170,138,2,42,164,2,42,0,2,42,0 
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11005 DATA 2,42,0,1,42,0,0,63,0,0,63,0,0,51,0 
,0,51,0,0,243,0,0,195,192,0,192,192 
11010 DATA 0,192,192,0,240,240,0,0,0,99 
11015 DATA 0,0,0,0,84,0,0,84,0,0,16,0,0,170,0 
,162,170,128,26,168,128,0,168,128 
11020 DATA 0,168,128,0,168,128,0,168,64,0,252 
,0,0,252,0,0,204,0,0,204,0,0,207,0 
11025 DATA 3,195,0,3,3,0,3,3,0,15,15,0,0,0,0,99 
11030 DATA 0,0,0,0,0,0,3,0,0,0,32,0,12,168,0 
,194,168,0,12,168,0,0,32,0,3,0,0,0,0 
11035 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, 0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
11040 DATA 99,0,0,0,0,0,0,0,0,192,0,8,0,0,42 
,48,0,42,131,0,42,48,0,8,0,0,0,192 
11045 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
11050 DATA 0,0,99,0,56,0,0,126,0,1,231,128,3, 

1,192,6,0,224,0,0,224,0,0,224 
11055 DATA 0,1,192,0,3,128,0,7,0,0,14,0,0,28 
, 0,0,56,0,O,48,0,0,48,0,0,48,0,0,0,0 
11060 DATA 0,0,0,0,48,0,0,120,0,0,48,0,99,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,206 
11065 DATA 0,3,3,15,252,3,3,3,3,3,0,206,0,0 
,4B,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
11070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
11075 DATA 0,0,0,0,0,0,0,0,192,0,3,48,0,12,0 
,12,12,0,48,42,0,12,170,128 
11080 DATA 3,153,176,0,170,140,0,42,3,0,12 

,12,0,12,0,3,48,0,0,192,0,0,0,0,0,0,0 
11085 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99,0,8,0 

,0,42,0,0,38,0,0,42,0,0,8,0,2,170, 160 
11090 DATA 2,46,32,2,46,32,3,42,48,2,21,32 
,2,42,32,0,42,0,0,34,0,0,128,128 
11095 DATA 0,192,192,0,128,128,0,128,128,0 
,34,0,0,34,0,0,162,128,2,162,160,99 
11100 DATA 0,0,0,0,9,92,0,46,0,0,191,128,2 
,110,96,194,89,96,73,89,88,73,89,88 
11105 DATA 110,170,174,9,89,89,2,89,89,2,89 
,97,0,174,99,0,191,128,0,46,0 
11110 DATA 0,8,0,3,84,0,0,0,0,0,0,0,0,0,0,0,0,0,99 
11115 DATA 0,0,0,0,0,0,0,0,0,0,0,16,0,0,16,0 
,0,64,0,1,2,0,4,8,0,1,8,0,4,2 
11120 DATA 40,16,130,130,154,34,128,112,8,1 
,48,0,4,60,0,16,15,192,64,0,192 
11125 DATA 16,0,252,4,0,0,16,0,0,64,0,0,99 
12000 DATA 24002400050405040504030403040004000 
40004000400041009 

12005 DATA 100910091009050405040504050405150004000 
40004000410091009100410041009 
12010 DATA 1009 

12015 DATA 10091009100910091009100910091009000 
900090009000900090024 

12020 DATA 00240024002405040504050405040504000 
900090009000900090504050405040024 
12025 DATA 24002400100910091009100910091000 
1OOO1OOO1OOO1OOO1009 
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12030 DATA 1009100910091009100910091009100 
900000000000000000024 

12035 DATA 24002400050405040504050405040504000 
4000400040004050405041009 
12040 DATA 10091009100910091009100910091009 
1OOO10001OOO10001009 

12045 DATA 10091009050405040504050405040504000000 
000000000003020302030203020024 
12050 DATA 24002400240024002400240024002 
40000090009000900091009 
12055 DATA 1009100910091009100910091009100 
91OOO1OOO1OOO10000024 

12060 DATA 2400240003020302030203020302030200000000 
000000000302030203021009 
12065 DATA 10091009100910091004100410041004000 
400040004000410041004100410041009 
12070 DATA 1009100910091009100910091009100900 
000000000000000024 

12075 DATA 240024002400240005040504050405040000000 
00000000005040504050405040024 
12080 DATA 24002400240024002400240024002400000 
90009000900091009 

12085 DATA 100910091009100910091009100910091000 
1OOO1OOO10000024 

12090 DATA 2400240003020302030203020302030200000 
0000000000003020302030203021009 
12095 DATA 1009100910091009100910091009100900 
000000000000000024 

12100 DATA 240024000504050405040504050405040 
50005000500050005040504050405041009 
12105 DATA 10091009100910091009100910091009 
1OOO1OOO1OOO1OOO1009 

12110 DATA 1009100910091009050405040504050405 
0405040504050405040024 
12115 DATA 24002400240024002400240024002400 
1OOO1OOO1OOO1OOO1009 

12120 DATA 10090302030203020302030215020302030 
003000300030003020302030203020024 
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CHEXSUM 



0=4275 

185=3526 

355=5813 

1 =3523 

130=4501 

363=1484 

2=4973 

191=2321 

373=523 

3=1532 

192=800 

375=833 

5=2087 

193=542 

380=3746 

10=2985 

194=5910 

338=3637 

15=4706 

135=5922 

400=477 

£0=614 

138=528 

1888=4313 

58=814 

193=3278 

1065=3619 

55=4568 

200=839 

1016=3696 

56=1056 

205=3351 

1815=836 

57=1063 

210=4115 

1828=1734 

58=300 

212=849 

1825=1325 

60=1670 

215=844 

1839=2569 

65=1921 

220=1648 

1035=1379 

67=4360 

225=5380 

1837=2812 

68=4503 

227=3830 

1848=4813 

70=4371 

230=1572 

1845=3047 

75=2592 

235=1400 

1055=3551 

77=2682 

247=525 

1860=2549 

78=2538 

250=4133 

1865=3553 

30=2093 

251=3737 

1878=2834 

85=1319 

255=5004 

1872=3122 

33=526 

260=1400 

1875=3573 

35=1505 

270=525 

1888=1806 

1 00=1444 

275=898 

1085=1754 

1 10 = 1443 

230=3740 

1038=1803 

1 12=526 

290=3638 

1 168=2525 

1 15=203 1 

300=839 

1 1 10=1171 

125=2146 

305=3953 

1 112=3126 

150=1022 

310=4115 

1 1 15 =3574 

151=3424 

312=843 

1 128=1809 

152=3717 

315=344 

1 125=1755 

153=4323 

328=1648 

1 138=1805 

154=2447 

325=5382 

1 135=2525 

155=2233 

327=3834 

1 158=2682 

160=4585 

338=1577 

1 155=685 

162=1483 

335=1484 

1288=143 

170=4330 

347=529 

2888=3626 

175= 1920 

358 =4133 

2381=3219 

180=46 10 

35 1 -3737 

£034=1228 
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2305=525 1 

12025=3040 

2010=3535 

1 2030=3043 

2012=1433 

1 2 035=3506 

2015=1501 

12040=3054 

2017=2333 

12045=4317 

2020=3333 

12950=3042 

2025=1183 

12855=3847 

2036=123 

12068=3342 

1 0088 = 3726 

12065=4334 

10005=2650 

12073=3043 

1 1000=40 13 

12075=4315 

1 1005=4334 

12089=3042 

1 13 18=1636 

12035=3847 

1 1915=4281 

12830=4386 

11020=4294 

12095=3043 

11025=2119 

12 183=4334 

11630=4376 

r 165=2054 

11035=4088 

12 1 16=3285 

I1040=4163 

)2 1 15=3030 

11045=4033 

12120=4311 

11050=3712 


11055=4498 

TOTAL= 519162 

11063=4334 


11065=4146 



11070=1783 
11075=3436 
11086=4272 
i1085=4353 
11930=3705 
11095=4066 
11100=4035 
11105=3537 
11110=2262 
11115=3557 
11120=3718 
11125=1881 
12000=3042 
12605=4333 
12010=346 
12015=3233 
12020=434 1 
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U.F.O 



Another U.F.O. game with aliens attacking your craft. This one however 
contains a Machine Code routine to scroll the screen. 

Shoot down the attacking U.F.O.’s with one of your missiles. 

The game ends if you crash or if a U.F.O. gets past you. 

Your controls are: 

‘W’ up 
‘X’ down 
‘S’ to fire 
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PROGRAM STRUCTURE 

LINES 

INITIALIZE SPRITE 

0— 17 

PRINT GROUND 

20 

MACHINE CODE ROUTINE 

25 

GET CURRENT KEY 

30 — 35 

IF NO UFO ON SCREEN GENERATE ONE 

40 — 55 

IF CRASH —END 

60 — 65 

IF UFO —MOVE UFO 

70 — 95 

IF UFO HIT—GO DOWN 

100 

IF UFO CRASH 

105— 145 

END 

150 

IF KEY—‘S’ FIRE 

155— 171 

IF SHELL FIRED - MOVE SHELL 

175— 190 

NEXT LOOP (GO TO 25) 

200 

CLEAR SCREEN PRINT MESSAGE 

1000— 1030 

DATA 

10000— 10055 


VARIABLES 

CR = -1: NO UFO 
0: UFO 
1: UFO—HIT 
HI = HIGH SCORE 
SC = SCORE 

K = CURRENT KEY PRESSED 
Y = PLANE POSITION 
SH = SHELL FIRED OR NOT 
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U.F-O 


O POKE 55,255 * POKE 56,44 

1 FOR I = O TO 35 * READ A * POKE 14 * 1024 + I, A 

* NEXT 

2 IF PEEK < 53270 ) AND 8 THEN POKE 53270, 

PEEK ( 53270 ) - 8 

3 FOR I = O TO 126 - READ A * POKE 832 + I, A - 

NEXT * V = 53248 * MC = 14 * 1024 t KB = 197 

4 FOR I = O TO 126 * READ A * POKE 15 * 1024 + I, A 

* NEXT 

6 FOR I = O TO 31 * READ A * POKE 12 * 1024 + I, A 

* NEXT J HI = 0 

7 POKE V + 32,6 * POKE V + 33,6 * POKE 54296,15 
lO POKE V + 37,3 * POKE V + 38,2 * SC = O - 

POKE V + 24,28 

15 POKE 2040,13 * POKE V + 39,5 * POKE V,100 * 

POKE V + 1,100 * POKE V + 21,1 * POKE V + 28,1 
17 POKE 2041,14 * POKE V + 40,5 * CR = - 1 * 

SH = - 1 i POKE 2042,240 * POKE V + 41,0 

20 PRINT " 

teJS>ABCC3A3S>BBACCCBA3AC 

<i) ABBCAoDCBBBC Ao><ii> ACCB 11 5 
22 A = PEEK ( V + 30 ) 

25 SYS MC * IF PEEK ( V + 22 ) = 199 THEN 
POKE 2022, RND ( 1 ) * 4 
30 K = PEEK ( KB ) 

35 Y = PEEK < V + 1 ) * 

Y = Y - 2 * ( K = 9 ) * ( Y > 45 ) + 

( K = 23 ) * ( Y < 234 ) * 2 

36 IF Y > = 234 THEN lOOO 

40 POKE V + 1,Y * IF CR > — 1 THEN 60 

45 IF RND < 1 > > .1 THEN 150 

50 POKE V + 21, PEEK < V + 21 ) OR 2 - 

POKE V + 2,80 ^ POKE V + 16, PEEK ( V + 16 ) 

OR 2 

55 POKE V + 3, INT ( RND ( 1 ) * 175 + 44 ) * 

CR = O 

60 F = O * A = PEEK ( V + 2 ) * 

B = PEEK ( V + 16 ) AND 2* A = A - 2 - 

IF A < O AND B THEN B = O t A = 254 * F = 1 

65 IF A < O AND CR = O THEN lOOO 

67 IF A < O THEN CR = — 1 - GOTO 150 

70 POKE V + 2, A * POKE V + 16, PEEK ( V + 16 ) OR B 

* IF F THEN POKE V + 16, PEEK ( V + 16 ) - 2 
80 IF CR THEN 100 

85 A = PEEK ( V + 3 ) + INT ( RND ( 1 ) * 3 - 1 ) 

* 3 i IF A < 44 THEN A = 44 

90 IF A > 235 THEN A = 235 

95 POKE V + 3, A * GOTO 150 

100 POKE ( V + 3 ) , PEEK ( V + 3 ) + 2 * 

IF PEEK ( V + 3 ) < 235 THEN 150 
105 POKE V + 28,3 i POKE V + 40,8 * POKE 2041,241 
110 POKE 54276,0 t POKE 54277,15 * POKE 54273,72 * 
POKE 54272,169 * POKE 54276,129 
115 FOR I = 1 TO 2000 * NEXT 
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140 POKE V + 21, PEEK ( V + 21 ) - 2 * POKE V + 28,1 

145 CR = - 1 i POKE V + 40,5 * POKE 2041,14 

150 A = PEEK ( V + 30 ) * IF A = 3 THEN 1000 

155 IF A = 6 AND CR = O THEN SH=-1*CR=1* 

POKE V + 21, PEEK ( V + 21 ) - 4 « 

A = PEEK < V + 30 ) * SC = SC + 10 
160 IF K < >13 THEN 175 

165 SH = 1 * POKE V + 21, PEEK ( V + 21 ) OR 4 - 

POKE V + 4, PEEK ( V ) + lO * POKE V + 5, 

PEEK ( V + 1 ) 

170 IF PEEK ( V + 16 ) AND 4 THEN POKE V + 16, 

PEEK ( V + 16 ) - 4 

171 POKE 54276,0 * POKE 54277,31 * POKE 54273,8 * 

POKE 54272,147 * POKE 54276,129 
175 IF SH < 1 THEN 200 

180 A = PEEK ( V 4- 4 ) * B = PEEK ( V + 16 ) AND 4 
i A = A + 3 - IF A > 255 THEN B = 4 * A = 1 
185 IF A = BO AND B THEN POKE V + 21, 

PEEK <V+21)-4iSH=-lt 
POKE 54273,0 * POKE 54272,0 * GOTO 200 
190 POKE V + 4, A * POKE V + 16, PEEK ( V + 16 ) 

OR B 

200 GOTO 25 

1000 POKE 2040,241 * POKE V + 39,8 * POKE 54273,72 * 

POKE 54272,169 s POKE 54277,47 

1001 POKE 54276,0 * POKE 54276,129 * 

FOR I = 1 TO 3000 * NEXT * POKE 54273,0 * 

POKE 54272,0 

1005 POKE V + 24,20 * POKE V + 21,0 i 

POKE V + 22,200 * PRINT " Q a YOU ^ SCORED" ; SC 
t IF SC > HI THEN HI = SC 

1010 PRINT "HI ^ SCORE A IS" 5 HI * PRINT " ffl ffij [fflWANT 
* ANOTHER ^ GAME?" 

1020 GET A* * IF A$ = "Y" THEN 10 
1025 IF A$ < > "N" THEN 1020 
1030 END 

lOOOO DATA 174,22,208,202,224,191,240,4,142,22 
,208,96,162,199, 142,22,208 
10005 DATA 162,0,189,193,7,157,192,7,232,224 
,40,208,245,169,32,141,231,7,96 
10010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,128 
,0,0,224,0,0,232,1,0,234,149,64 
10015 DATA 170,170,168,63,170,255,22,169,80,10 
,160,0,42,148,0,42,0,0,0,0,0,0,0,0 
10020 DATA 0,0,0,0,0,0,0,0,0,0,0,0,99 
10025 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 

,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,255,0 
10030 DATA 7,255,224,9,36,144,15,255,240,1 

,255,128,0,126,0,0,0,0,0,0,0,0,0,0,0 
10035 DATA O, O, O, O, O, O, O, O, O, O, O, O, O, O, O, O 
, 0,0, 0,0,0,0, 0,0, 0,0, O, O, 0,0,0,0,0 
10040 DATA 0,0,0,0,0,0,0,0,194,0,0,63,128,0 
,194,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10042 DATA 0,0,0,0,99,0,0,0,0,12,0,0,63,0,0 
,59,0,O,59,0,252,59,0,59,251,240 
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10044 DATA 58,171,176,14,170,255,3,170,171 
,0,250,172,0,234,240,0,59,0,0,59,0 
10046 DATA 0,238,192,3,174,192,14,190,192,14 
,206,192,59,3,0,0,0,0,0,0,0 
10050 DATA 0,0,0,0,0,98,247,255,0 
,0,0,4,14,31,127,255 
10055 DATA 0,0,16,24,60,124,254 

,255,0,0,0,0,4,46,127,255 


CHEXSUM 

0=980 
1 =3358 
8 =8477 
3=4338 
4=8437 
8=3345 
T =8305 
10=3583 
15=4064 
17=3984 
28=53 13 
80=895 
35=3776 
38 =688 
35=4587 
38=1 165 
48=1677 
45=1111 
58=3838 
55=3853 
68=5498 
65=1438 
67=1731 
78=4855 
88=618 
85=3571 
98= 1 154 
85=1888 
188=3879 
185=1335 
1 18 = 3378 
115= 1880 
148=3183 


145=1353 
159=1737 
155=5340 
168=1833 
165=4584 
178=0768 
171=3333 
175=388 
138=4333 
185=5041 
138=3183 
088=473 
1088=3416 
1081=3759 
1895=5833 
1010=3333 
1900=1243 
1035=1184 
1830=133 
18080=3563 
19005=3363 
18810=4003 
10815=4333 
18080=1533 
18035=4313 
18030=4186 
10035=3861 
i0048=4311 
10843=3813 
13044=3355 
13848=3498 
13050=3484 
10855=3611 


TOTAL= 


1 36684 
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Galaxy Raid 


110M O 

v -r -r ir y v v 



A fleet of aliens looms above you, one by one they dive to attack you with 
their guided missiles. 

You must avoid their missiles and destroy the alien ships. The main 
group is protected by a force field and only diving craft are vulnerable to 
your counter-fire. If you destroy the fleet another appears to replace it. 

Your controls are: 

Z’ for left 

‘C’ for right 

‘M’ to fire a missile 
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PROGRAM STRUCTURE 

INITIALIZATION 
PUT RAIDERS 


LINES 

0 — 9 

10,612,614, 
700 — 720 


DISPLAY SCORE 
GET KEYBOARD CHARACTER 
MOVE ACCORDING TO KEY 
FIRE IF (SPACE BAR) PRESSED 
TEST IF PLAYER HIT 
TURN OFF SOUND 

MOVE PLAYER’S MISSILE UP SCREEN 

CHECK IF PLAYER’S AND RAIDER’S 
MISSILES COLLIDE 

UPDATE SCORE 

ELIMINATE PLAYER’S MISSILE IF PAST RANGE 
HOME RAIDER’S MISSILE TOWARD PLAYER 
PLAY MUSIC BETWEEN GAMES 

CHECK IF RAIDER’S MISSILE HIT PLAYER 
DATA 


500 

510 

520 — 530 
535, 900 — 905 

545 

546 

570 

571 

575 

580 

582 — 584 
800 — 850 

1000— 1040 
9000— 10070 


VARIABLES 

S = SCORE 

SP = NUMBER OF RAIDERS LEFT 

SC = SCREEN REFERENCE POINT 

XI = HORIZONTAL POSITION OF PLAYER’S MISSILE 

Y1 = VERTICAL POSITION OF PLAYER’S MISSILE 

PE = VALUE PEEKED FROM KEYBOARD 

P = HORIZONTAL POSITION OF PLAYER 

I = LEFT HAND END OF RAIDER FORMATION 
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GALAXY RAID 


O PRINT - Q 2DFGHIJK A A A A A A A JRPQR ST" t 
POKE 53280,0 t POKE 53281,0 * V = 53248 

1 PRINT " 63 tel ID MI NO A L fl" t POKE V + 24,28 * 

FOR I = 12288 TO 12463 * READ Q t POKE I,Q * 
NEXT 

2 FOR I = 12544 TO 12551 * POKE 1,0 * NEXT 

3 POKE 54273,0 * FOR I = 12672 TO 12751 * READ Q * 

POKE I,Q * NEXT 

4 POKE V + 21,7 i POKE 2040,208 * POKE 2041,209 t 

POKE V + 39,B * POKE V + 40,7 t POKE 2042,210 

5 POKE V + 41,2 « FOR I = O TO 190 * READ Q * 

POKE 13312 + I,Q * NEXT 

6 P = 120 - S = O t SP = 4 * AL = 7 - C0 = 55296 * 

SC = 1024 * POKE V,P t POKE V + 1,200 

7 X = 5 + INT ( RND ( 1 ) * 20 ) i Y = 120 * 

X2 = X * Y2 = 160 

8 GOSUB 800 t POKE 54277,0 * POKE 54278,240 * 

GOSUB 700 

9 POKE V + 28,4 * POKE V + 38,5 * 

PE = PEEK ( V + 31 ) 

lO FOR 1 = 1 TO 18 * PRINT " H [fi [fi [fl H ; 

TAB ( I - 1 ) ;C* * PRINT " 63 tel tel tel" J TAB ( I ) 

5 A* 

20 GOSUB 500 

60 PRINT 63 [fil El ffl" 5 TAB ( I > ; B$ 

70 GOSUB 500 
75 NEXT 

lOO IF SP > 1 THEN SP = SP - 1 

110 FOR I = 17 TO 1 STEP -It PRINT " 63 ttl tel tel " i 

TAB ( I + 1 ) > C$ t PRINT “ 63 tel El tel" 5 TAB ( I ) 

5 A* 

120 GOSUB 500 

160 PRINT " HElMETi TAB ( I ) i B* 

170 GOSUB 500 
180 NEXT 
190 GOTO 10 

500 PRINT ' SHHHHHilHBHHilHilBH 
H B B B B B H B" 5 S; “ M" 

502 IF SP < 2 THEN PRINT "" 

505 FOR J = 1 TO INT ( SP ) 

510 PE = PEEK ( 197 ) 

520 IF PE = 12 AND P > 35 THEN P = P - 4 

530 IF PE = 20 AND P < 320 THEN P = P + 4 

535 IF Y1 = O AND PE = 36 THEN GOSUB 900 

537 IF P > 255 THEN POKE V,P - 256 t POKE V + 16, 

PEEK ( V + 16 ) OR 1 J GOTO 545 

540 POKE V,P t POKE V + 16, PEEK < V + 16 > AND 254 

545 IF PEEK ( V + 31 ) = 1 THEN lOOO 

546 POKE 54273,0 

560 IF Y1 = O THEN 581 

570 Y1 = Y1 - 6 i POKE V + 3,Y1 

571 IF PEEK ( V + 31 ) < > 2 THEN 580 

572 POKE 54296,15 * POKE 54276,0 t POKE 54276,129 

573 IF PEEK ( V + 16 ) AND 2 THEN POKE V + 16, 
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PEEK ( V + 16 ) OR 4 t GOTO 575 

574 POKE V + 16, PEEK < V + 16 ) AND 251 

575 POKE V + 4, PEEK ( V + 2 ) t POKE V + 5,Y1 * 

Y1 =0 t S = S + 30 - Y / 40 

576 POKE SC + X + Y,32 t POKE SC + X + Y + 1,32 i 

Y = 840 

578 FOR Z = 40 TO 1 STEP - .6 t POKE 54273,Z * NEXT 

* POKE 54273,0 - POKE V + 4,0 * POKE V + 5,0 

580 IF Y1 < 90 THEN Y1 = O t POKE V + 2,0 t 

POKE V + 3,0 

581 POKE SC + X2 + Y2,32 

582 IF RND ( 1 ) < .1 THEN X2 = X2 + 

( X2 > ( P - 20 ) / 8 ) - 

( X2 < ( P - 20 ) / 8 ) 

583 Y2 = Y2 + 40 t IF Y2 > 840 THEN Y2 = Y + 40 * 

X2 = X 

584 POKE CO + X2 + Y2,3 t POKE SC + X2 + Y2,21 

600 NEXT - DX = X - DY = Y 

601 IF DY < 680 OR RND ( 1 ) < .6 THEN DY = DY + 40 

602 IF DY < 360 AND DX > 20 AND DX < 38 THEN 

DX = DX + 1 

604 IF DY < 360 AND DX < 21 AND DX > 1 THEN 

DX = DX - 1 

605 IF DY > 400 AND DX > 20 AND DX > 1 THEN 

DX = DX - 1 

606 IF DY > 400 AND DX < 21 AND DX < 38 THEN 

DX = DX + 1 

608 IF DY < 840 THEN 620 

609 AL = AL — 1 » IF AL = O THEN AL = 6 - DY = 120 

* DX = I + INT ( RND ( 1 ) * 6 ) * 4 * 

SP = SP - 1 * GOSUB 700 

610 DX = INT ( RND <1)*6)*4+1± 

IF MID* ( A*, DX, 2 ) = “ A ^ " THEN 610 

612 Al* = LEFT* ( A*,DX - 1 ) + M ^ ^ “ + RIGHT* 

( A*, 24 - DX - 1 ) - A* = Al* 

614 Al* = LEFT* ( B*,DX - 1 ) + “ ^ ^ ” + RIGHT* 

( B*,24 - DX - 1 ) * B* = Al* 

615 POKE 54296,5 * POKE 54276,0 * POKE 54276,17 * 

POKE 54273,50 * FOR Z = 1 TO 100 - NEXT 

616 POKE 54273,0 

619 DY = 120 - DX = I + DX - 1 

620 POKE SC + Y + X,32 * POKE SC + Y + X + 1,32 

625 POKE SC + DY + DX,4 * POKE SC + DY + DX + 1,5 * 

POKE CO + DY + DX,4 i POKE CO + DY + DX + 1,4 

626 X = DX i Y = DY 
630 RETURN 

700 POKE 54296,8 * POKE 54276,0 * POKE 54276,33 
705 A* = "3A ^ ^ S)A ^ ^ S>A ^ ^ «>A ^ ^ S>A ^ ^ «>A ^ ^ " < 

B* = “BC ^ ^ BC ^ A BC A ^ BC ^ ^ BC ^ ^ BC ^ ^ ' 

710 C*=" 

▲ ▲ ▲ ▲ 

712 FOR Z = 1 TO 20 - POKE 54273,Z * NEXT * 

POKE 54273,0 
720 RETURN 

800 POKE 54276,0 * POKE 54277,0 * POKE 54278,0 

802 POKE 54296,15 * POKE 54277,190 * POKE 54278,64 t 
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POKE 54276,17 

805 FOR I = 1 TO 10 STEP -05 * POKE 54273,1 * NEXT 
810 FOR 1 = 1 TO 30 STEP .2 * POKE 54273,1 * NEXT 


815 

FOR I = 
NEXT 

50 TO 20 STEP - 

- .2 

* POKE 54273, 

I 

* 

820 

FOR I = 
NEXT 

80 TO 140 STEP 

2.5 

* POKE 54273, 

I 

- 

825 

FOR I = 
NEXT 

200 TO 50 STEP 

- 3 

i POKE 54273, 

I 

* 

830 

FOR I = 

lO TO 40 STEP . 

2 i 

POKE 54273,I 

c 

NEXT 

835 

FOR I = 

80 TO 140 STEP 

2 * 

POKE 54273,I 

e 

NEXT 

840 

FOR I = 

10 TO 1 STEP - 

.04 

t POKE 54273, 

I 

* NEXT 

842 

FOR I = 

1 TO 10 STEP .05 * 

POKE 54273,I 

t 

NEXT 

845 

850 

FOR I = lOO TO 70 STEP 
POKE 54273,0 - RETURN 

- 2 

* POKE 54273, 

I 

* NEXT 


900 POKE 54296,10 * POKE 54276,0 * POKE 54276,129 

901 IF P > 255 THEN POKE V + 2,P - 256 * 

POKE V + 16, PEEK ( V + 16 ) OR 2 - GOTO 905 

902 POKE V + 2,P * POKE V + 16, PEEK ( 0 + 16 ) 

AND 253 

905 Y1 = 180 - FOR Z = 1 TO 30 STEP 2 * 

POKE 54273, Z * NEXT * RETURN 
lOOO POKE 0,0 * POKE V + 1,0 ‘ POKE V + 2,0 * 

POKE V + 3,0 * POKE V + 5,200 
1005 IF P > 255 THEN POKE V + 4,P - 256 * 

POKE V + 16, PEEK ( V + 16 ) OR 4 - GOTO 1010 

1007 POKE V + 4,P * POKE V + 16, PEEK ( V + 16 ) 

AND 251 

1010 POKE 54296,15 * POKE 54276,0 * POKE 54276,129 
1020 FOR I = 1 TO 100 * POKE 54273,1 * NEXT 
1030 FOR I = lOO TO 50 STEP - 2 * POKE 54273, I * NEXT 
1032 FOR I = 80 TO 1 STEP - .4 : POKE 54273,1 * 

NEXT * POKE 54273,0 

1035 POKE V + 4,0 * POKE V + 5,0 t POKE V + 29,0 
1040 RUN 

9000 DATA 96,125,31,15,2,1,0,0,3,31,124,248 
,160,192,128,128 

9010 DATA 0,0,127,31,6,1,0,0,0,0,127 
,252,176,192,128,128 
9020 DATA 28,14,7,3,2,1,0,0,28,56,112 
,224,160,192,128, 128 

9030 DATA 255,192,192,192,207,195,195,255,255 
,0,12,12,51,63,51,51 

9040 DATA 0,0,48,48,48,48,48,63,0,0,12,12,51,63,51,51 
9050 DATA 0,0,51,51,12,12,51,51,0 

9060 DATA 0,0,51,51,27,27,12,12,12,48,48,96,96,192,0 
9070 DATA 0,0,60,51,51,60,54,51,0,0,63,12,12,12,12,63 
9075 DATA 0,0,60,51,51,51,51,60 
9080 DATA 0,243,195,195,243,51,51,243,0,207 
,12,12,12,12,12,207 

9090 DATA 0,207,204,204,207,204,204,204,0,15,204 
,204,15,204,204,207 

9095 DATA 0,0,48,0,0,48,0,0,0,24,126,60,24,24,24,24 
9100 DATA 0,120,126,102,102,102,126,0,0,24 
,120,24,28,28,126,0 
9110 DATA 0,126,6,24,96,102,126,0,0 
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,30,126,6,62,6,126,0 

9120 DATA 0,96,108,108,126,28,28,0,0 
,14,126,96,24,6,126,0 

9130 DATA 0,126,112,126,102,102,126,0,0,126 
,102,12,24,48,48,0 

9140 DATA 0,126,102,24,102,102,126,0,0,126 
,102,102,126,14,14,0 

10000 DATA 0,12,0,0,30,0,0,63,0,0,63,0,0,63,0 
,0,63,0,0,30,0,0,12,0,0,30,0,0,63,0 
10010 DATA 8,255,196,9,255,228,9,255,228,11 

, 127,180,15,127,188,14,63,28,12,12,12 
10020 DATA 8,30,4,0,63,0,0,63,0,0,0,0,99 
10030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0,0, O, O, O, O, O, O, O, 0,0, O, O, O, 0,0, O 
10040 DATA 0,0,0,12,0,0,12,0,0,30,0,0,30,0,0 
, 12,0,0,12,0,0,30,0,0,63,0,0,109,128 
10050 DATA 99,0,0,0,0,8,0,2,8,8,0,8,32,0,42,128,0 
,174,160,2,239,128,42,255,160 
10060 DATA 11,255,224,2,255,224,2,255,128,2,190 
,0,8,186,128,0,184,32,0,40,0 
10070 DATA 0,32,0,32,32,0,0,0,128,2,0,2,0,0,0,0,0,0 


CHEXSUM 


Q = 3683 

535=1853 

601=£489 

1=4 14 1 

510=796 

S0.£ =£30 1 

£=1766 

5£9=1344 

604=2833 

3 = £732 

530= 199£ 

605=3838 

4 =4i23 

535=1654 

68S=£897 

5=3939 

Fi- 3 7 = .7 7 4 2 

888=1803 

6=4473 

540 =£040 

609=5634 

7=2347 

545=1456 

6 18=34 18 

3 =£04 1 

546 =5£3 

613=3614 

3=£47 1 

568=85 1 

614=3614 

10=£983 

578=1443 

S 15=3699 

£3 =£39 

5 7 1 = 15 8£ 

616=538 

60=846 

572=1966 

619=1559 

7 0 = £ 3 3 

573=34 1£ 

628=£343 

75=131 

574 = 157£ 

635=5514 

100=1436 

575=3634 

836=936 

110=3464 

576=£855 

630=143 

1£3=239 

578=4 19 1 

798=1837 

168=846 

538 =£447 

785=4304 

170=£99 

561=111£ 

718=1543 

180=13 1 

53£ =4 1 £5 

712=3313 

130 =47£ 

583=£356 

730=143 

500=1461 

534=2375 

398=1765 

50£ = 954 

688= 1 134 

.903=37 1 0 
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305=1320 

18800 =436*7 

310=1361 

13010=4457 

315=2075 

18820=1733 

320=2031 

t 8830=4083 

325=2034 

10040=4363 

330=1312 

18050=4217 

335=1336 

10060=3818 

340=2075 

342=1920 

10076=2311 

345=2034 

350=723 

300=1962 

301=3953 

302=2298 

905=2612 

1000=3056 

1005=4007 

1007=2294 

1010=1366 

TOTAL= 23146 

SPRITE 

1920=1651 

PLAYERS 

1030=2032 

1032=2693 

1035=1930 

1040=139 

3000=2360 

3018=2682 

3820=2733 

9830=3204 

SHIP 

3040=2522 

9050=1383 

SPRITE 

9060=2455 

9078=2437 

9075=1261 

9330=2986 

9038=3236 

3985=2363 

3180=2929 

9118=2682 

9128=2746 

3138=2955 

PLAYER’S 

MISSILE 

3143=3008 

SPRITE 



EXPLOSION 












Invaders 



Battle the invaders with your base on the ground. The arcade classic 
should have you addicted in no time at all. 

Controls are: Z’ left, ‘C’ right and ‘M’ to fire. 

This program contains a large amount of machine code to control the 
invaders. Even if you don’t as yet fully understand what is being done, 
don’t worry. Just key the lines in carefully — especially the data lines. 
Check them thoroughly before trying to play the game. 


197 







PROGRAM STRUCTURE 


LINES 


INITIALIZE 0 — 2 

ALTER MEMORY LIMIT 5 

TEST IF‘Z’OR‘C’KEY PRESSED 100 

MOVE LEFT/RIGHT 105—115 

FIRE SHELL/SOUND/MOVE 200 

SHELL HIT ANYTHING? 210 

MOVE INVADERS 300 

COLLISION WITH BARRIERS 315 — 325 

MOVE BOMBS FROM ALIENS 500 

CALL TO MACHINE CODE ROUTINE TO 1100 

MANIPULATE INVADERS 

INVADERS’SOUND 1110—1115 

END OF GAME? 1118 

PRINT SCORE 1125 


VARIABLES 

V = START ADDRESS OF VIDEO CHIP 
SC = SCORE 

X, Y = COORDINATES OF BLASTER 
K = CONTAINS KEY PRESSED ON KEYBOARD 
P = CONTAINS THE CHARACTER ON THE SCREEN THAT THE 
SHELL HAS MADE CONTACT WITH (32 = SPACE) 

SX = X COORDINATE OF SHELL 
SY = Y COORDINATE OF SHELL 
I = TEMPORARY VARIABLE 

S(J) — ARRAY CONTAINING POSITIONS (6) OF ALIENS 
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INVADERS 


O V = 53248 * POKE 54276,0 * POKE 54290,0 t 
POKE 54278,240 * POKE 54292,240 s 
POKE 54276,129 

1 POKE 54290,17 * POKE V + 33,0 * POKE V + 32,0 * 

SC = 1024 - CL = 55296 • CO = 54272 * 

POKE 54296,15 

5 POKE 56,28 * POKE 55,0 * FOR I = 12544 TO 12551 
- POKE 1,0 * NEXT 

10 GOSUB 8000 * GOSUB 8060 * GOTO lOOO 
99 IF K = 1 THEN 99 
lOO IF K < >12 AND K < > 20 THEN 150 

105 POKE SC + Y * 40 + X,32 - X = X - < K = 12 > * 

(X>0) + (K = 20 ) * ( X < 39 ) - 
IF PEEK ( SC + Y * 40 + X ) < > 32 THEN D = 1 

110 POKE CL + Y * 40 + X,3 - POKE SC + Y * 40 + X, O 

115 RETURN 

150 IF K = 36 AND SX < O THEN SX = X * SY = Y - 1 * 
POKE 54273,72 * POKE 54272,169 
155 RETURN 

200 POKE SC + SY * 40 + SX,32 - SY = SY - 1 t 

IF SY < 1 THEN SX = - 1 * RETURN 

205 P = PEEK ( SC + SY * 40 + SX ) 

210 POKE CL + SY * 40 + SX,7 * POKE SC + SY * 40 
+ SX,2 J IF P = 32 THEN RETURN 
215 POKE 54273,34 * POKE 54272,75 * POKE SC + SY * 
40 + SX,4 

220 IF P < >1 THEN 250 

225 FOR Y1 = 8 TO O STEP - 2 * 

FOR XI = 10 TO O STEP - 2 t 
P = IN + Y1 * 6 + XI 

230 IF PEEK ( P ) < > SY OR PEEK ( P + 1 ) < > SX 
THEN 245 

235 S = S + ( 12 - Y1 ) I 5 J NO = NO - 1 - 
POKE P + 1,255 t XI = O J Y1 = 0 
245 NEXT * NEXT * GOTO 275 
250 IF P < >3 THEN 275 

255 FOR J = O TO 5 5 IF S ( J ) = SC + SY » 40 + SX 
THEN S=S+5* S (J) =0* J = 5 
260 NEXT 

275 POKE SC + SY * 40 + SX,32 - SX = - 1 ; RETURN 
300 POKE S(J> ,32 *S(J)=S(J)+ 40 - 

IF S ( J ) > 1983 THEN S ( J ) = O * RETURN 

305 P = PEEK ( S ( J ) ) - POKE S ( J ) + CO, 3 t 

POKE S ( J ) ,3 

310 IF P = 32 THEN RETURN 

315 POKE S ( J ) ,4 * POKE 54273,43 t POKE 54272,52 

* IF P = O THEN D = 1 

320 IF S ( J ) = SC + SX + SY * 40 THEN SX = - 1 

325 POKE S(J) ,32 t S ( J ) = O t RETURN 

500 SI = INT ( RND ( 1 ) * 6 ) * IF S ( SI ) > O 

THEN RETURN 

505 FOR Y1 = 8 TO O STEP - 2 t IF PEEK 

( IN + Y1 * 6 + SI * 2 + 1 ) = 255 THEN 550 

510 S ( SI ) = SC + ( PEEK 
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< IN + Y1 * 6 + SI * 2 ) + 1 ) * 40 + PEEK 

< IN + Y1 * 6 + SI * 2 + 1 ) * Y1 = O 

550 NEXT * RETURN 

lOOO D = 0 - FOR I = 1 TO SP * K = PEEK ( PE ) * 

IF K < >64 THEN GOSUB 99 
1005 IF SX > = O THEN GOSUB 200 

1010 FOR J = O TO 5 - IFS(J) >0 THEN GOSUB 300 
1015 NEXT * POKE 54273,0 * POKE 54272,0 t 
POKE 54287,0 ± POKE 54286,0 
1020 IF RND < 1 ) > .5 THEN GOSUB 500 

1100 NEXT * SYS 7168 * IF NO < 21 THEN SP = 3 * 

IF NO < 11 THEN SP = 2 * IF NO < 6 THEN SP = 1 

1101 POKE 54287,2 * POKE 54286,37 ^ IF 

PEEK ( 12303 ) = 36 THEN POKE 12303,129 * 

GOTO 1104 

1102 POKE 12303,36 

1104 IF PEEK ( 7604 ) = O AND D = O AND NO > O 

THEN 1000 

1105 IF NO = O THEN GOSUB 8050 * GOTO 1000 
1110 POKE SC + Y * 40 + X,4 * POKE 54273,61 * 

POKE 54272,126 

1115 FOR I = 15 TO O STEP - .1 s POKE 54296,1 * NEXT 

* POKE 54287,0 * POKE 54286,0 * 

POKE SC + Y * 40 + X,0 

1117 POKE 54273,0 * POKE 54272,0 

1118 IF PEEK ( 7604 ) = O THEN B = B + 1 s 

IF B < 4 THEN POKE 54296,15 * GOTO 1000 
1120 POKE V + 24,20 * PRINT H □IfilfflKlffltelElElfc] 

^ **GAME ^ OVER**" 

1125 PRINT ** EJYOU ^ SCORED"S * RUN 
8000 FOR AD = 7168 TO 7393 
8005 READ A * POKE AD,A * NEXT 

8010 FOR AD = 12288 TO 12351 * READ A * POKE AD, A * 

NEXT 

8015 POKE V + 24,28 

8050 FOR Y1 = O TO 4 J FOR XI = O TO 5 * 

POKE 7620 + Y1 * 12+ XI * 2,Y1 *2+ 1 * 

POKE 7621 + Y1 * 12 + XI * 2,XI * 3 

8052 NEXT * NEXT 

8055 POKE 7605,1 * POKE 7604,0 *SX=-1*SY=0* 

NO = 30 t SP = 4 J RETURN 
8060 B = 1 - PRINT ” Q" - FOR I = 1984 TO 2023 

8065 POKE 1,5 * POKE I + CO, 6 * NEXT * X = 1 * Y = 23 

- PE = 197 i S = O 

8070 IN = 7620 * DIM S ( 5 ) * POKE CL + Y * 40 + X,3 

* POKE SC + Y * 40 + X,0 

8075 FOR Y1 = 1 TO 4 * PRINT " HE3EJE1ME1M 

SPC < Y1 * 10 - 7 > 

"EEEK3 || || IIEEE II || ||EEE" ; 

8077 PRINT " II || ||F ^ G" ; 

8080 NEXT * RETURN 

9000 DATA 162,7,142,179,29,162,0,142,180,29 

, 189,197,29,201,255,240,56, 141,177,29 

9001 DATA 189,196,29,141,176,29,169,32,141 

, 178,29,32,162,28, 189, 197,29,24, 109 
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9005 DATA 181,29,157,197,29,201,0,208,5,160,1 
,140, 180,29,201,39,208,5,160,1, 140 
9010 DATA 180,29,141,177,29,169,1,141,178,29 
,32,162,28,232,232,224,60,208,187 
9015 DATA 173,180,29,208,1,96,169,0,141,180,29 
,169,32,141,178,29,162,0,189 
9020 DATA 197,29,201,255,240,27,141,177,29,189 
,196,29,141,176,29,32,162,28,254 
9025 DATA 196,29,189,196,29,201,22,208,5,160 
,1,140,180,29,232,232,224,60,208 
9028 DATA 216,173,181,29,201,1,240,4 
,169,1,208,2,169,255 

9030 DATA 141,181,29,173,180,29,208,3,76,0,28,96 
9035 DATA 138,72,152,72,172,176,29,169,0,133,31 
,169,4,133,32,162,0,24,169 
9037 DATA 40,109,31,0,133,31,169,0,109,32,0, 
133,32,232,236,176,29 

9040 DATA 208,235,172,177,29,173,178,29,145,31 
,24,169,212,109,32,0,133 
9045 DATA 32,173,179,29,145,31,104,168,104 
,170,96,0,16,16,56,124 
9050 DATA 124,254,254,126,90,255,189,189,36 
,66,36,0,0,0,16,16,16,56,84,0,84,56 
9055 DATA 16,56,56,16,0,108,213 
,128,132,39,174,197, 78 

9060 DATA 255,255,255,255,255,255,255,255, 255 
,254,252,248,240,224,192,128 
9065 DATA 255,127,63,31,15,7,3,1 


CHEXSUM 


0=4023 
1=4830 
5=2723 
10=1447 
33=739 
100=1773 
105=7265 
110=2596 
1 15=143 
150=3937 
155=143 
200=4001 
205=1730 
210=3302 
215=2848 
228=374 
225=3304 
230=2757 
235=3854 


245=334 
250=332 
255=4336 
£60=131 
275=2343 
300=3553 
305=2333 
3 10=329 
315=2902 
320=2512 
325=1345 
590=2283 
505=3310 
510=5670 
550=332 
10.00=3269 
1085=1215 
1810=1844 
1015=2562 
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1020=1268 
1 100=4497 
1 101=3923 
1 102=585 
1 104=2330 
1 105=1723 
1 1 10=2645 
1 1 15=4731 
1 1 17=1167 
1 1 13=3651 
1 120=3974 
1 125=1348 
8000=1039 
8005=868 
8810=2246 
8015=672 
8050=6147 
8052=328 
3055=3437 


8060=1339 

8065=3103 

3870=3756 

3075=4983 

3077=970 

3030=333 

9000=4559 

9001=4377 

9005=4447 

9010=4348 

9015=3903 

9030=4364 

9035=4031 

3833=3633 

9030=3361 

9035=3703 

3037=3131 

3040=3533 

9045=3118 

3050=4236 

9055=2513 

3060=3753 

3065=1341 

TOTAL = 218933 
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APPENDIX A 


The purpose of this appendix is to provide you with information beyond 
just the program listings and stuctures. 

The information presented here is an extract from our own programmers’ 
notes. 

Before we publish any games our programmers go through the programs 
in detail and in doing so come up with hints, tips and general information 
which would be useful to the programmer. 

Be sure to progressively SAVE the programs onto cassette as you enter 
the listings. From time to time, the keyboard may lock up’, expecially if 
you try to RUN a program that contains an error. We strongly recommend 
that you keep SAVEing copies of the program as you enter it into the 
computer and ‘debug’ any typing errors. 

We also appreciate that some people like to ‘customise’ some of the 
games by enhancing them or changing them in some way. Anticipating 
this we have also suggested some changes you might like to make. 

You will note that some of the programs contain machine code language 
subroutines. These are required to achieve effects that would be too slow 
in BASIC. 

Don’t worry if you are not familiar with machine language — the 
programs include all the instructions to initialize the machine language 
subroutine and to implement it. You must be especially careful with the 
DATA statments in these programs. Be sure to SAVE a copy of the 
program onto cassette before trying to RUN a program that contains 
machine language subroutines. 

In Appendix D, we show the subroutines that make up the machin,e 
language subroutine in the program “U.F.O.”. This subroutine scrolls the 
landscape at the bottom of the screen. 

If there are any novices among you we have given a very detailed 
breakdown of “Start Pilot” under “Program Structure”. You will be able to 
follow the program step-by-step and understand all it does. 

A sprite generator with which to create sprites for your own games has 
been added. Use this to create good games to send to us for publishing 
together with the card in the back. 

The true arcade games addict has been catered for with instructions on 
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how to convert the programs so that they are joystick compatable (in 
Appendix B). 

All in all we feel that, whatever your purpose in purchasing this book, we 
have provided you with enough material to make your purchase more 
than worthwhile. 

GENERAL HINTS 

If you encounter difficulty trying to SAVE a program while in colour mode, 
hit RUN/STOP and RESTORE. 

To get a completely black background and border : POKE 53280, 0 
(border) 

POKE 53281,0 (background) 
and CTRL 8 for white characters 

If you crash the program during graphics mode and you can’t read the 
line number in which you crashed, then type: 

POKE 53272, 21 : POKE 53265, 155 

If you type in a line that is exactly 2 screen lines long and can’t get it 
accepted, use the cursor keys to move the cursor back into the line (at 
least one cursor left movement) and then save the line. If it still doesn’t 
save, you have probably added redundant spaces or an extra character. 

Some games use the space bar and others the ‘M’ key for firing. If you 
prefer one or the other you can alter as follows: 

PEEK 197 checks last key pressed (returns an ASCII value) 

When testing the value of last key pressed : ‘M’ = 36 and ‘space bar’ = 60 

If you find that some games, that you know are correct, just don’t work 
properly, try resetting and loading. We have found that previous games 
can sometimes corrupt pointers. 

HINTS FOR SPECIFIC GAMES 

PARANOID 

This game takes about 30 seconds to initialize so don’t assume you’ve 
made an error somewhere, just wait. 

TURKEY 

To speed up movement of the turkey change line 60 to read: 

Y1 = Y1 + 2 * YD : XI = XI + 2 * XD 

To speed up the waiter change lines 26 and 32 to P = P - 3 and P = P + 
3 respectively. 
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HIGHER OR LOWER 

Use the card selector and drawing routines as a basis for other card 
games. 

FLIGHT SIMULATOR 

To increase the rate of fuel consumption, and so force a faster landing 
and a time limit, decrease the 3200 in line 110. (A value of about 1500 
seems to work well.) 

SLALOM 

To make the game more difficult, and thus more challenging, change line 
30 to: 30 IF RND(1) < 1 etc. 

This decreases the distance between flags and increases the number of 
trees. You could write a routine to incorporate different skill levels. 

COWBOY SHOOTOUT 

To change background and border colours change the vlaues POKEd 
into (V + 33) and *V + 32) in line 15. 

DARK STAR 

We encountered some problems loading Dark Star from cassette, 
presumably because of its length, if it happens just persevere. You might 
also like to change the sound on your shots to something more gutsy. 

MARTIAN INVASION 

Those of you who are observant will notice that at times a tripod will blow 
up before your bullet hits him — this is caused by a collision with the high 
X —bit. 

UFO 

To increase the speed of the game you can speed up the moving objects 
by making the following changes. 

Line 35: To increase craft speed increase the value 2 in 
Y=Y-2 and also the 2 at the very end of the line 

Line 60: To increase UFO speed increase the value subtracted 
from Ain A=A-2 

Line 180: To increase bullet speed increase the value added 
to A in A=A+3 

The UFO will not crash into the sea but should you desire it to do so just 
remove line 90. 
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APPENDIX B 


TO CONVERT KEYBOARD GAMES TO JOYSTICK GAMES 

— plug joystick into control port 1. 


Where in the game you see PEEK (197) or a variable has been assigned 
to the value 197 (e.g. KB or PE in some cases) and you see PEEK 
(variable) then change the 197 to 56321. Using the above you would 
have PEEK (56321) or KB = 56321 or K = PEEK (56321). 

The next step is to replace key tests with joystick value tests. Using the 
table below change the key tests as shown. 


IF PE = “Fire key value” 

IF PE = “Up key value” 

IF PE = “Down key value” 
IF PE = “Left key value” 

IF PE = “Right key value” 


IF PE AND 16 = 0 
IF PE AND 1 =0 
IF PE AND 2 = 0 
IF PE AND 4 = 0 
IF PE AND 8 = 0 


If you don’t know the code values for keys and therefore don’t know 
which key a value represents then run this little routine: 

10 PRINT PEEK (197);: GOTO 10 


RUN it and press the keys used in a game. The values for the keys will 
appear on the screen. Just relate these values according to the function 
of the key they represent to the joystick test values in the table. 

e.g. North Sea Copter 

40 PE = PEEK (56321) 

45 IF PE AND 8 AND F > 0 THEN X = X + 2:F = F-.1 
etc. 
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APPENDIX C 


SPRITE GENERATOR Copyright (c) 1983 Beam Software 

This program provides a fast and simple means for creating your own 
sprites. 

The program provides a 24 x 21 grid on the screen on which to draw your 
sprites, the relevant key to be pressed being listed on the screen. 

The real size sprite is shown on the screen, as well as the expanded 
(double resolution) sprite. 

Keys used are: 

A = MOVE CURSOR LEFT 

D = MOVE CURSOR RIGHT 

W = MOVE CURSOR UP 

X = MOVE CURSOR DOWN 

S = PLOT POINT ON GRID 

SPACE BAR = ERASE POINT ON GRID 

SHIFT CLR = CLEAR ENTIRE GRID 

RETURN = CLEAR SCREEN AND PRINT OUT DATA 

When return is pressed the sprite data is printed out, this may then be 
used in your own programs as follows: 

10 V = 53248 : REM START OF DISPLAY CHIP 
20 POKE V + 21, 1 : REM ENABLE SPRITE 0 
30 POKE 2040, 13 : REM SPRITE DATA POINTER 
40 POKE V + 39, 4 : REM COLOUR OF SPRITE 
50 FOR I = 0 TO 62 : READ A : POKE 832 + I, A : NEXT : REM 
SPRITE DATA STORED HERE (13 * 64) 

60 FOR X = 0 TO 200 REM MOVE SPRITE (EXAMPLE) 

70 POKE V,X REM UPDATE X COORDINATE 
80 POKE V + 1, X REM UPDATE Y COORDINATE 
90 NEXT X 
100 GOTO 60 

200 REM DATA STATEMENTS WOULD FOLLOW 

This program sets up the sprite and moves it accross the screen. 
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SPRITE GENERATOR Copyright (c) 1983 Beam Software 

1 SC = 1024 

2 POKE 649,0 

10 PRINT " Q" 

11 FOR I = O TO 7 J O ( 7 — I ) = 2 t I * NEXT 

12 FOR I = 0 TO 7 * A ( I ) = 255 -0(1) i NEXT 
15 POKE 53281,6 ^ POKE 53280,6 

20 GOSUB 2000 

60 FOR I = 55296 TO 56319 * POKE 1,0 * NEXT 


100 

POKE 

209,25 * 

POKE 210,4 


110 

PRINT " m SPACE ^ ^ ^ ^ HSERASE" 


120 

POKE 

209,65 * 

PRINT •• ms ^ ^ ^ ^ ^ ^ . 

^ ^ 5SPLOT" 

130 

POKE 

209,105 

i PRINT " »A ^ ^ ^ ^ ^ ^ 

^ ^ ID LEFT 

140 

POKE 

209,145 

i PRINT 



" »D ^ A ^ 

^ ^ ^ ^ ^ SIS RIGHT" 


150 

POKE 

209,185 

i PRINT " MU ^ ^ ^ ^ ^ ^ 

^ ^ Hi UP" 

160 

POKE 

209,225 

* PRINT •• 

A A Si DOWN 

170 

POKE 

209,9 * 

POKE 210,5 i PRINT 



»SHFT ^ CLR ^ 2ElCLEAR" 


180 POKE 209,49 * PRINT " M RETURN ^ ^ ^ SSDATA" 

200 SO = 832 * POKE 2040,13 t POKE 53287,8 

201 POKE 2041,13 * POKE 53288,4 * POKE 53250,11 

POKE 53251,190 
205 GOSUB 3000 
210 POKE 53248,24 
220 POKE 53249,135 
225 POKE 53264,3 
230 POKE 53269,3 

240 POKE 53271,2 * POKE 53277,2 


300 

CX 

= 

0 

o 

n 

> 

u 

o 






500 

FOR I 

: = 

= 0 TO 5 






505 

FOR TP 

= 1 TO 20 i NEXT 





510 

IF 

I 

= 

0 THEN POKE SC 

+ 

CX 

+ 

CY 

* 40 


PEEK 

< SC + CX + CY 

* 

40 

) 

OR 

128 

520 

IF 

I 

= 

3 THEN POKE SC 

+ 

CX 

+ 

CY 

* 40 


PEEK 

( SC + CX + CY 

* 

40 

) 

AND 

127 

530 

K = 

= PEEK ( 197 ) 






540 

IF 

K 

= 

10 THEN 5000 






550 

IF 

K 

= 

18 THEN 5100 






560 

IF 

K 

= 

13 THEN 5200 






570 

IF 

K 

= 

9 THEN 5300 






580 

IF 

K 

= 

23 THEN 5400 






590 

IF 

K 

= 

60 THEN 5500 






600 

IF 

K 

= 

51 THEN 5600 






610 

IF 

K 

= 

1 THEN 7000 







700 NEXT I 
800 GOTO 500 
lOOO GOTO 1000 
2000 FOR I = O TO 20 
2010 FOR J = O TO 23 
2020 POKE SC + I * 40 + J,43 
2030 NEXT J * NEXT I 
2040 RETURN 

3000 FOR 1=0 TO 62 * POKE SO + 1,0 - NEXT i RETURN 
5000 IF CX = O THEN 700 
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5010 POKE SC + CX + CY * 40, 

PEEK ( SC + CX + CY * 40 ) AND 127 
5020 CX = CX - 1 t GOTO 700 
5100 IF CX = 23 THEN 700 
5110 POKE SC + CX + CY * 40, 

PEEK ( SC + CX + CY * 40 ) AND 127 
5120 CX = CX + 1 * GOTO 700 
5200 POKE SC + CX + CY * 40,81 
5210 TP = SO + CY * 3 + INT ( CX / 8 ) 

5220 POKE TP, PEEK ( TP ) OR 

0 ( CX - 8 * INT ( CX / 8 ) ) 

5230 GOTO 700 

5300 IF CY = O THEN 700 

5310 POKE SC + CX + CY * 40, 

PEEK ( SC + CX + CY * 40 ) AND 127 
5320 CY = CY - 1 J GOTO 700 
5400 IF CY = 20 THEN 700 
5410 POKE SC + CX + CY * 40, 

PEEK ( SC + CX + CY * 40 ) AND 127 
5420 CY = CY + 1 * GOTO 700 
5500 POKE SC + CX + CY * 40,43 
5510 TP = SO + 3 * CY + INT ( CX / 8 ) * 

POKE TP, PEEK ( TP ) AND 
A < CX - 8 * INT ( CX / 8 > ) 

5520 GOTO 700 

5600 GOSUB 2000 

5610 GOSUB 3000 * GOTO 700 

7000 PRINT " a" 

7010 FOR I = O TO 62 J PRINT PEEK ( SO + I ) ; 

7020 IF I < > 62 THEN PRINT ", M 5 
7030 NEXT I 
7040 END 
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CHEXSUM 

1=544 
2=420 
10=372 
1 1 = 1331 
12=2061 
15=1183 
20=347 
80=1783 
J00=963 
1 10=1542 
120=1948 
130=2809 
140=2031 
150=1833 
180=2018 
170=2766 
188=2148 
280=1718 
201=2539 
285=343 
218=592 
228=653 
225=526 
238=535 
240=1170 
308=868 
508=655 
505=1007 
5 10=3828 
520=3824 
530=704 
540=892 
550=901 
560=896 
570=844 


1330=579 

2000=709 

2810=708 

2820=1252 

2030=475 

2040=143 

3000=1858 

5908=867 

5018=3217 

5020=1349 

5108=934 

51 10=3217 

5128=1348 

5200=1446 

5210=1336 

5220=2517 

5238=529 

5380=867 

5318=3217 

5320=1350 

5400 =933 

5418=3217 

5428=1348 

5500=1446 

5510=4642 

5520=529 

5608=347 

5610=969 

7008=372 

7010=1699 

7820=1 138 

7830=206 

7046=129 

TOTAL= 98267 


588=899 

530=898 

680=898 

618=836 

790=206 

383=529 
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APPENDIX D 


ASSEMBLY LANGUAGE ROUTINE FROM U.F.O. 

FINE SCROLLS SCREEN BY USING FINE SCROLL X 
REGISTER. WHEN THIS REGISTER HAS BEEN DECREMENTED 
BY 8 THE ENTIRE BOTTOM LINE IS COARSE SCROLLED. 


3800 

LDX 

♦DO 16 

;READ SCROLL REGISTER 


3803 

DEX 


; DECREMENT THE VALUE 


3804 

CPX 

#191 

5 IF DECREMENTED BY 8 





( 1 CHARACTER ) 


3806 

BEQ 

♦380C 

; THEN GOTO COARSE SCROLL SCREEN 

3808 

STX 

♦DO 16 



380B 

RTS 


;RETURN 


380C 

LDX 

#199 



38CE 

STX 

♦DO 16 

; RESET SCROLL REGISTER 


3811 

LDX 

#0 

;SCROLL BOTTOM LINE OF 

SCREEN 

3813 

LDA 

♦7C1,X 



3816 

STA 

♦7CO,X 



3819 

INX 




381A 

CPX 

#40 



381C 

BNE 

♦3813 



38 IE 

LDA 

#32 

; STORE NEW CHARACTER AT 

RIGHT 




EDGE OF LINE 


3820 

STA 

♦7E7 



3823 

RTS 


;RETURN 
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COMMODORE 64 GAMES BOOK 


REGISTRATION CARD 

Please till out this page and return it promptly in order that we may keep 
you informed of new software and special offers that arise Simply cut 
along the dotted line and return it to the correct address selected from 
those overleaf. 


Where did you learn of this product? 

□ Magazine. If so, which one? 

□ Through a friend. 

[ ] Saw it in a Retail Store 


□ Other Please specify . 

Which Magazines do you purchase? 

Regularly: . 

Occassionally: . 

What age are you? 

mo-15 □ 16-19 □ 20-24 □ Over 25 

We are continually writing new material and would appreciate receiving 
your comments on our product. 

How would you rate this book? 


n 


Excellent 

Good 

Poor 


□ Value for money 

□ Priced right 

□ Overpriced 


Please tell us what software you would like to see produced for your 
COMMODORE 64 


Name _ 
Address 


_Code 

I ED3 I 










PUT THIS IN A STAMPED ENVELOPE AND SEND TO: 

In the United States of America return page to: 

Melbourne House Software Inc., 347 Reedwood Drive, 

Nashville TN 37217. 

In the United Kingdom return page to: 

Melbourne House (Publishers) Ltd., Melbourne House, Church Yard, 
Tring, Hertfordshire, HP23 5LU 

In Australia & New Zealand return page to: 

Melbourne House (Australia) Pty. Ltd., Suite 4,75 Palmerston Crescent, 
South Melbourne, Victoria, 3205. 




The best software games book ever 
written for your Commodore 64. 

These easy to enter program listings turn 
your Commodore 64 micro into an entire 
arcade of electronic fun and thrills. 
Experience action so fast and furious it 
will shatter all your concepts about 
computer game excitement. 

Written by Clifford Ramshaw, author of 
the renowned VIC Innovative Computing 
and Mark Ramshaw of Zap Pow Boom VIC 
Arcade fame! These two programming 
wizards once again show how to get the 
ultimate game performance from your 
micro. 



* 



Melbourne House Publishers 

ISBN 0 86161125 X 


“An offering that definitely lives up to its 
title. The programs cover a range of 
games with a selection of shoot-em-up 
space wars, board games and a flight 
simulator.” Personal Computer News. 


Every game program makes maximum 
use of the Commodore 64’s sophisticated 
features, including its innovative Sprite 
capability and excellent sound. 


“For a Commodore 64 games enthusiast 
this book is a must.” Personal Computer 
News. 


The Commodore 64 Games Book includes 
the unique CHEXSUM verification pro¬ 
gram that allows you to see at a glance if 
you have typed any program in this book 
correctly! 
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